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Introduction 


This book as the title suggests, is a book of utilities for the Commodore 
64. It has been written not only to provide a set of useful routines, but 
also to help you to begin to understand some of the more detailed 
workings of your 64. 

We have tried to cover a reasonable spectrum and hope that through 
our examples you will attack areas other than those covered here with 
increased confidence. Towards this end we have covered in depth the 
development, background and implementation of each utility. 

We have made no attempt to cover programming, in either BASIC or 
machine code, in this book because many other texts cover this in 
detail. We have also assumed that most serious 64 users will be in 
possession of a copy of the Programmer's Reference Guide and have 
adopted its nomenclature throughout, particularly with reference to 
memory locations and KERNAL routines. 

Wherever possible a utility has been implemented in both BASIC 
and machine code. We felt that the BASIC versions, though sometimes 
crude, are easier to experiment with and should also help those 
readers unfamiliar with machine code to appreciate the workings of 
the equivalent routines. They also go to prove that it is not what you 
know, but how you use it. In some cases it might prove beneficial to 
use the BASIC rather than the machine code versions. Typical circum¬ 
stances might be where only one or two features are required, or when 
you need the full 38K of RAM available to BASIC, or if you wish to 
switch to bank 2 when using graphics. 

To facilitate entering the machine code it has been given in two 
forms: as BASIC loaders and assembler listings. The assembler listings 
are suitable for use with an extended monitor. For anyone not owning 
a monitor program, we have included Jim Butterfield's Supermon and 
instructions for its use in Appendices D and E. (Supermon for the 64 
was first published in the January 1983 issue of Compute). However, 
before attempting the considerable task of typing it in and then getting 
it to work, ask around your friends and user groups as they may have a 
copy. If you do find one, you will save yourself a lot of time, effort and 
frustration. Jim Butterfield has also published a very complete Memory 
Map for the 64 in the October 1982 issue of Torpet which has since 
appeared in many other journals. This complements the one in the 
Programmer's Reference Guide as it gives the nominal entry points to 
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most ROM routines. A copy of this map couid save you a great deal of 
time when disassembling ROM routines to find out how they work. 

To assist in entering the BASIC code all listings have been provided 
in an annotated form. This, we hope, will avoid the all-too-common 
problems associated with deciphering the symbols for cursor keys, 
function keys, colours, and so on when in quotes mode. A detailed list 
of all mnemonics used is given in Appendix H, but you should find that 
most are self-explanatory. The program we wrote to generate them is 
included in this book in the UTILITY as the CODER command. The 
listings as given in the text always have a maximum line length of 40 
characters in their annotated form. Where a line exceeds forty charac¬ 
ters it is continued on the next and subsequent lines always commen¬ 
cing in column 1. When looking at the listings you may find it helpful to 
compare the rightmost characters of continued lines. When the code is 
typed in, replacing the mnemonics with the correct key(s), no line will 
exceed 80 characters on the display. 

Any of the BASIC utilities intended for use from within another 
program have been numbered in the 60000's to allow you to merge 
them with your own programs (using the simple technique described 
in Chapter 5 or the MERGE command of the UTILITY itself). 

We have chosen to put our code at 32768 ($8000), leaving the BASIC 
programmer with 30K free. There is no reason why the code could not 
be modified and relocated elsewhere in memory (the 4K block from 
$C000 is not a bad idea) and the initialization routine adjusted to take 
advantage of the increased memory available. In fact, nearly all the 
routines were developed and tested in isolation, being enabled by a 
simple SYS call. They were then incorporated into the UTILITY by 
simply relocating and including a keyword and token to activate them. 
To conserve memory, common subroutines have not been duplicated. 
Often a pick 'n' mix approach was found useful to check out a range of 
extensions which relied heavily on common routines. 

We have used 'hidden' RAM beneath BASIC to store data to con¬ 
serve valuable user RAM and implemented a simple switching routine 
to access this data when necessary. Applications like setting up the 
function keys require access to this RAM, as does CODER. We have 
made extensive use of the ROM routines and RAM vectors available, 
but on some occasions found it more economic and faster to write our 
own code. The UTILITY, in the form given, occupies the same area as 
cartridge ROM and cannot therefore co-exist with cartridges. It was 
not written to run in conjunction with them and is intended as a 
standalone, extendable facility. As the owners of a disk unit will have 
received DOS 5.1. on the demo disk, the UTILITY has been written to 
co-exist with DOS 5.1. Some of the isolated routines will temporarily 
disable DOS as they make use of the same operating routine - CHRGET 
- but more about that later. However, a simple SYS call will restore 
DOS 5.1 commands. 
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There are many commercial utilities and BASIC extensions. These 
may be purchased at reasonable prices and for many applications there 
will be no better solution. However, if you are interested in the Com¬ 
modore 64 and wish to get the most from it, you may appreciate having 
a range of routines which you can modify, extend and, indeed, 
improve upon. After all, you can pay upwards of the cost of this book 
for a fairly simple renumber routine. 

Before we finish, we would like to leave you with two suggestions 
and an option: 

1) Always save a program before running it 

2) Always make backup copies 

This is good advice for BASIC and essential where machine code is 
concerned. 

3) It is very easy to wire a reset switch to your 64 and the necessary 
reset line is available at both the Serial I/O and User I/O (see the 
Programmer's Reference Guide, Appendix I). This is almost essential 
if you use machine code, but don't attempt this if you are not sure 
what you are doing. 


Have fun (if that's the right word)! 
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Introducing basic 

On powering up your 64 you will find it ready and waiting to go in 
basic, as part of the power reset sequence is to initialize basic and leave 
the user in direct mode. 

The implementation of basic that Commodore has chosen to use for 
the 64 is identical to that on the VIC20 and PET microcomputers prior to 
the 4000 series, basic 2, as it is often called, differs from the later version 
only in its disk operating commands, the latter having a greatly 
improved and simplified instruction set for disk control. In producing 
basic 4 Commodore did maintain 99.99% downward compatibility and 
in doing so allowed users to run any program on a higher series PET. It 
was, therefore, a little surprising to find the basic on the 64 to be only 
V2. This may have been done to avoid a conflict of interests in so much 
as the new CBM micro, though in many respects far more powerful, 
was not quite the same. 

basic, or to give its full title Beginners' All-purpose Symbolic Instruc¬ 
tion Code, runs on the 64 as a high-level interpreted language. It is a 
subset of Microsoft's basic (who wrote the first implementation for the 
early PETs and now produce MBASIC and the MSDOS operating sys¬ 
tem for all major microcomputers). The history of basic is nothing to do 
with this book, but it is interesting to note that regardless of environ¬ 
ment, or cost of system basic will usually be in there somewhere. It may 
only run in compiled form, or it may be syntactically different, but it is 
reassuring to know that a knowledge of 64 basic should allow you to 
grasp quickly other basics on other machines. 

basic has its critics, particularly of CBM basic, who would advocate 
the use of Pascal, or Pilot, or Forth, or . .. Each of these languages is 
particularly suited to a range of tasks, but perhaps none lends itself as 
well as basic to the task of rapid development of 'untidy' and 'unstruc¬ 
tured' programs which, most importantly, work. Arguments for and 
against will no doubt long continue, but as we are supplied with basic, 
let us make the most of it. 

As its name imples, basic was developed to allow beginners to 
acquire programming skills rapidly. It adopted a system of naming its 
commands and functions to indicate the action produced. For 
example, if we wish to halt the execution of a program we issue the 
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all-too-clear command : stop. For non English-speaking countries even 
the use of English is no problem on the 64 as not only is it a simple 
matter to redefine the character set, but it is also easy to redefine the 
keyword table itself. 

On the 64 we have 75 (76 if you include go) basic commands, 
functions and operators as standard. For many applications this is 
perfectly adequate. Life would be simpler if more commands were 
available. Increasing the number of commands has the benefit of 
providing a more versatile programming language, but the dis¬ 
advantage of slowing down the execution of the existing commands. 
This is true of any interpreted programming language. However, the 
way in which the interpreter has been implemented does allow you to 
add to the keywords to your heart's content, providing you understand 
how it works and are capable of writing the necessary machine code. 
For the moment the interpreter will be considered simply as a means of 
translating our 'meaningless entries' into something which is execut¬ 
able by the 6510 microprocessor at the machine code level. This it does 
by taking an instruction, finding the appropriate machine code 
routine, carrying it out and then returning to implement the next. The 
process is slow but very flexible and even allows us to interrupt the 
execution and take control should we wish to do so. 

One of the best features of the 64 must be the screen editor. It allows 
changes to be made directly to anything appearing on the screen and, 
more importantly, allows you to implement these changes. The dis¬ 
advantage is that the maximum length of program line or direct state¬ 
ment is limited to 80 characters (or two screen lines). Use of the 
standard abbreviations of first character and second (or third) charac¬ 
ter shifted, instead of typing the full keyword, does allow program 
lines, on listing, to exceed this limit. They cannot, however, be easily 
edited. On pressing return to acknowledge the end of the edit only 
two screen lines are accepted. Anything beyond this point is not 
included in the revised line. Still, this limitation is far outweighed by 
the speed at which it allows existing code to be edited and repetitive 
code to be entered by simply using the cursor keys, altering the line 
number, modifying the necessary part of the line and pressing return 
to enter the new line. It even allows us to write programs which can 
generate their own program lines, as we will see in Chapter 5. 

basic may be used in two modes. These are direct (when a command 
is typed in without a line number and executed immediately) and 
program (a command preceded by a line number which is not execu¬ 
ted until the program is run). 


Storage of basic code 

If we wish to examine a program, we may do so with the list command. 
What we see has undergone many processes from the form in which it 
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was stored in ram. To view the code in situ we first of all need to know 
where to look. In the default mode on powering-up a basic program 
will be sorted from memory location 2049 ($0801) upwards. We can 
examine a program by simply PEEKing out each of the locations used by 

FOR I = START TO START-F200: PRINT PEEK (I);: NEXT I 

We would see a series of decimal numbers with only the fact in 
common that none was less than zero or greater than 255. We might 
also notice some sort of related pattern occurring, but not a great deal 
more. We could adopt another approach by moving an area of ram 
used for program storage to the screen. This is easily accomplished, 
but in doing so we must also remember to set a colour at the screen 
location we are putting the data into for it to be visible. The resulting 
display is easier to decipher if the 64 is put in lower case mode by 
pressing the shift and logo keys together. The following line should be 
typed in direct mode: 

S=0: FOR I = START TO START+800:POKE 1024+S, PEEK( I): POKE 
55296+S,14: S = S + 1 :NEXT I 

If you wish to start at the beginning of a program then 2049 must be 
used and it assumes, as does the first example, a program to be present 
which occupies memory at least to START+800 (or +200). This time we 
see a series of characters and where our program has text within 
quotes it appears almost unchanged as do variable names, punctuation 
and constants. If we combine the processes, and to produce a more 
consistent format express the numbers in hexadecimal format, we 
begin to see some sort of relationship. (You had better get used to 
using hexadecimal notation as we use it extensively, but to help you on 
your way there is a table of decimal to hex conversions in Appendix B). 
The following program does just this and may be used to examine 
itself. If you wish to experiment, simply enter new lines with numbers 
less than 60000. Those of you with extended monitors or who jumped 
straight in and typed in Supermon can use the 'memory display' 
option. 

The program displays on each line the start address and the values 
held in this and the next seven locations. At the right of the line the 
characters with ASCII (CHR$()) codes corresponding to the byte values 
are printed. To avoid confusion, only those characters which are easily 
discernible are printed; all others are expressed by a Appendix C 
of the PRC gives the full range of ASCII and CHR$() codes. If you want 
to display all the characters then some of the codes will have effects 
which will destroy the display, for example, cursor moves, clear 
screen, colours, and so on; so you will have to trap these. They do, 
however, occur in blocks and are therefore not too difficult to isolate. 

As will be standard practice throughout this book, a description 
precedes most program listings. 
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LINE ACTION 

130 Examine selected range in groups of eight. 

140 Convert current start address to low/high byte format, that is, 
units (0-255) and lots of 256s. 

Then convert to hex notation in two stages. 

150 Get eight successive bytes from start and print two digit hex 
to values each time. 

170 

190 Convert eight bytes to ASCII characters if printable. 

to 

220 Else replace with aand build eight character string. 

230 Print string. Recycle if not end else start again. 

1000 Convert start address to hex in two steps. 

2000 Convert byte to two digit hex. 

100 PRINT"MEMORY DISPLAY" 

110 INPUT"DISPLAY FROM";F 
120 INPUT"C10SPCITO";T:IF T<F THEN PRINT 
"LESS THAN FROM":GOTO 120 
130 FOR I=F TO T STEP 8 
140 X=I:GOSUB 1000 
150 FOR J=I TO 1+7 

160 X=PEEK<J>:GOSUB 2000:PRINT X*;" "; 

170 NEXT J 
180 PRINT " 

190 A*="":FOR J=I TO 1+7 

200 X=PEEK< J):IF X<32 OR X>95 THEN A*=A* 

+".":GOTO 220 
210 A*=A*+CHR*<X> 

220 NEXT J 

230 PRINT A*:NEXT I:GOTO 100 
1000 MSB=INT<X/256):LSB=I-MSB*256 
1010 X=MSB:GOSUB 2000:PRINT X*; 

1020 X=LSB:GOSUB 2000:PRINT X*;" "; 

1030 RETURN 

2000 X1=INT<X/16>:X2=X-X1*16 

2010 X*=CHR$<Xl+48-7*<Xl>9))+CHR*<X2+48- 

7*<X2>9>> 

2020 RETURN 


If the program is used to examine itself by entering a start of 2048 and 
an end of 2504 for the program as listed the following display is given: 
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Its exact format will vary depending on how you typed the program in. 
A number of things are immediately apparent. All text inside quotes, all 
variable names, all destinations, all constants and punctuation appear 
unchanged. From just this information we can work out the general 
area of each line. Taking line 100 as an example, “MEMORY. . ." is 
clearly visible from $0806 to $0815. Immediately preceding it is the 
value $99 which, not surprisingly, is the tokenized value for PRINT. The 
two bytes before this are $64 and $00. $64 is the hex for 100 which is the 
line number. Line numbers may range from 0 up to 63999 and, like 
many values on the 64, are stored in low/high byte format. The actual 
line number is $64+$00*$0100 (100+0*256). If we look along the hex 
values for line 100, we see that the byte immediately following the 
closing quote is a zero. This is how basic marks the end of a program 
line. The two bytes preceding the line number are $17/$08 which is the 
address (low/high) of the byte immediately following this end of line 
zero. These two bytes are known as the link address and point to the 
link address (and start) of the next line. If we follow the link address 
through the program, the sequence runs $0817/082D/0864....09D1 and 
finally 0000. A link address of zero marks the end of the program, 
which in this case is $09D1. A pointer to this address+2 is held in zero 
page (locations $00=$FF) at VARTAB ($2D/2E) and marks the start of the 
basic variables. A second pointer on zero page, TXTTAB ($2B/2C), 
points to the start of the program. This is the location of the first link 
address and in the default setting this will always be $0801. Location 
$0800 holds a zero; the byte before the start of a program must always 
be zero for run to work. This becomes of more significance when the 
start location of basic is changed. 

A program can therefore be thought of as a 'linked list' of individual 
program lines. It is of the form: 

START LINK LINE END . END PROG 

00 low high low high basic line 00 low high.... 000000 
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The link addresses are not used when a program is run, but are 
important during listing and editing. We can alter their values without 
affecting the way a program runs, but on listing some strange effects 
are produced. 

We can now look through the display and find the start and end of a 
line and the associated line number. Knowing these, we can start to 
deduce the tokenized values for the basic keywords used. By adding 
lines to the program we could find out all keyword values, but to save 
you the effort we have produced a complete list in Appendix A. This 
table has been extended to include the new token values used by the 
utility. These values should be ignored for the moment. With a little 
practice, reading displays of this type becomes very easy. 

From the table in Appendix A we see that all basic keywords have 
token values in excess of 127 ($7F). The highest token used for stand¬ 
ard basic is 203 ($CB) for the GO command. (GO simply searches for a 
corresponding TO to ensure GOTO is equivalent to GO TO). When a 
line is entered from the keyboard it is transferred to the input buffer 
(buf $0200-0258) on pressing return. The line is then tokenized in 
accordance with this table with keywords being processed first. If no 
line number is present, the basic interpreter immediately executes the 
statement(s). If one is present then the line is put in its numerically 
correct position and the link addresses for the whole program are 
recalculated and VARTAB updated. A similar process is carried out 
when a line is deleted. These operations are discussed in greater detail 
in Chapter 3. 


Variables 

General 

basic allows three types of variable. These are real, integer and string. 
String and integer are distinguished from real by trailing '$' and '%' 
characters respectively. The default is therefore to real. Variable names 
may be of any length, but only the first two characters and the last 
character are of significance. This means ABXXXX% will be considered 
equal to ABYYY% and to AB%, but different from ABXXXX or 
ABXXXX$. The last character is used to distinguish the variable's type, 
and if it is not one of the special characters above then the variable is 
treated as real. The only limitation on naming variables is that the first 
character must be alphabetic and the subsequent character, 
alphanumeric, providing that they do not form reserved keywords. For 
example, pend would be treated as 'p' plus the keyword end and on 
running would produce a syntax error. Reserved words are any of 
those occurring in Appendix A with a token value exceeding 127 
(bearing in mind that with the utility in place the number of reserved 
words will be increased). 

To allow each of the three types of variable (four, really, when we 




18 basic on the 64 


include function names) to be stored in two bytes, the high bit is set or 
unset on each of the name bytes to give the necessary four combi¬ 
nations. These are: 


Name 


Type 

REAL 

INTEGER 

STRING 

FUNCTION 


1st char 

ASCII 

ASCII+128 

ASCII 

ASCII+128 


2nd char 

ASCII 

ASCII+128 

ASCII+128 

ASCII 


Where the name is only a single character, the second byte is zero or 
128 as appropriate. 

Each of the three types of variable may be used in multi-dimensional 
arrays. These subscripted variables follow the same rules as for simple 
variables with the addition of a '(' following the name and type. This 
tells the interpreter it is dealing with an array and is handled 
accordingly. 

Storage of variables 

Any variable created in either direct or program mode is stored after 
the program currently in memory. Variables are stored in the order in 
which they are created. Strings are stored slightly differently from 
numeric values mainly due to their dynamic nature and are held in two 
parts. The first is a pointer to the string's location and the second is the 
length of the string itself. Strings are stored at the top of basic memory 
($9FFF/40959) and grow downwards. The current lower limit of string 
storage is stored in fretop ($33—$34/51—52). 

When searching for a variable the interpreter starts at the end of the 
program and searches upwards in memory for the named value 
according to the rules given above. If the variable does not exist, the 
next available space is allocated to it. Thus, if we define the more 
important values early on they can be accessed quicker and the time 
spent in 'garbage collection' reduced. 

Variables are either simple or subscripted. 

Simple variables 

All non-subscripted variables use seven bytes of ram. The first two hold 
the name in its adjusted form. For each real variable the remaining five 
bytes are used in the following way: one for its exponent and the 
remaining four for its sign and mantissa. Integers are stored in only two 
bytes with the remaining three unused. Strings use one byte to 
indicate the length and two bytes to point to the location of the 
characters, which is usually at the top of memory (though not always). 
A function also uses seven bytes, of which the third and fourth point to 
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its definition (Def fn), the next two point to the variable it uses and the 
last points to an initial value of the variable (zero). 

The following table summarizes the storage of simple variables: 

Byte 


1 and 2: name 

3 4 

5 

6 

7 

REAL 

exp sign+MI 

M2 

M3 

M4 

INTEGER 

sign + high low 

unused 

unused 

unused 

STRING 

length ptr low 

ptr high 

unused 

unused 

FUNCTION 

pointer to DEF FN 
low high 

pointer to 
low 

variable 

high 

initial value 


If we add the following lines of code to our memory display program, 
all variable types are generated (including arrays): 

1 DIM A(5),B%(5),C$(5),D$(1,5) 

2 FOR 1=0 TO 5:A(I) = I: B(l) = l :C$(I)=CHR$(64+I) :D$(2,I) = C$(CI): 
NEXT 

3 M$=M$+"STRING1":Z$=Z$ + "STRING2" 

We can now dump the memory associated with simple variables. The 
area to be displayed can be worked out from VARTAB, ARYTAB and 
FRETOP. To do this the program is run twice, the first time from 
2641($0A61) to 2732($0AAC) to display the variables and the second 
time from 40900($9FC4) to 40960($A000 - the start of basic rom) to 
display the strings in situ: 

Simple variables and string pointers 


0A51 

49 

00 

8C 

25 

10 

00 

00 

4D 

1 .M 

0A59 

80 

07 

ED 

9F 

00 

00 

5A 

80 

. 2. 

0A61 

08 

E5 

9F 

00 

00 

4 6 

00 

8C 

aaaaaPaa 

0A69 

25 

10 

00 

00 

54 

00 

8C 

2A 

y T * 

/• * 0 • i • • a 

0A71 

C0 

00 

00 

58 

00 

00 

00 

00 

• a a X a a a a 

0A79 

08 

00 

4D 

53 

84 

20 

00 

00 

a .MS a a a 

0A81 

00 

4C 

53 

88 

01 

00 

00 

00 

.LS. 

0A89 

58 

31 

82 

00 

00 

00 

00 

58 

XI. ...X 

0A91 

32 

82 

00 

00 

00 

00 

58 

80 

2.X. 

0A99 

02 

19 

9D 

00 

00 

4A 

00 

8C 

aaaaa\Jaa 

0AA1 

2A 

20 

00 

00 

41 

80 

08 

D8 

^ a a A a a a 

0AA9 

9C 

00 

00 

41 

00 

25 

00 

01 

a a a A a /a a a 
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Strings in situ 


9FC4 

30 

30 

30 

30 

30 

31 

30 

30 

00000100 

9FCC 

31 

32 

35 

35 

32 

38 

43 

43 

125528CC 

9FD4 

38 

30 

30 

30 

30 

34 

39 

39 

80000499 

9FDC 

34 

35 

31 

31 

35 

30 

41 

41 

451150AA 

9FE4 

30 

53 

54 

52 

49 

4E 

47 

32 

0STRING2 

9FEC 

29 

53 

54 

52 

49 

4E 

47 

31 

)STRING1 

9FF4 

45 

45 

44 

44 

43 

43 

42 

42 

EEDDCCBB 

9FFC 

41 

41 

40 

40 

94 

E3 

78 

E3 

AA ■ * * ■ 


Real variables 

Looking through the display above, it is quite easy to spot the real 
variables as their names are stored in unmodified ASCII. At $0A51 we 
see T, the first non-subscripted variable to be used, with a zero 
second byte in its name. We can also spot F, T, X and all the others 
(noting that msb and lsb are stored as ms and ls). 

Real numbers are stored in binary floating point format, always to an 
accuracy of 31 bits. Due to the way in which they are stored in single 
precision form, rounding errors are introduced though these are 
usually not significant enough to affect the final results. Examples of 
this type of error are encountered all the time as in the 'X.000001'-type 
value. We can convert 'I' back to a decimal number quite easily. 

The exponent is stored in byte 3 and is the power of two. A unit 
change in this doubles or halves the resulting value. Positive 
exponents are expressed as 129+EXP and negative, as 129-EXP. 
Therefore, the full range is from 2*(—129) to 2'(127) or in decimal, from 
about 10*(-38) to 10*37. The high bit of byte 4 indicates the sign and is 
set for negative numbers. To calculate the decimal value, we have to 
successively divide the mantissa starting at the right by 256, add the 
result to the next on the right and so on until we reach Ml, when we 
only divide by 128 and finally add 1. The resulting number will lie 
between 1 and 1.999999. This must finally be adjusted for its exponent 
and sign. The values for 'I' used below are in decimal. 

M4 0/256=0 
M3 (0+0)/256=0 
M2 (0+16)/256=.0625 

Ml (.0625+37)/128=0.28955 

+ 1.00000=1.28955 

If this is then multiplied by the exponent of 2"(140-129)=2048, the 
value is 2048*1.28955=2640.999 (almost 2641). This is the upper limit for 
the first memory display. A general formula may be written to convert 
any real variable from its floating point to decimal form: 

(—)'(Ml AND 128)*2'(EXP-129)*(1 + ((M1 AND 127)+ (M2+ (M3+ 
(M4/256)/256))/256). . ./128) 
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Integer variables 

These are stored in a signed high/low byte format and can range from 
—32768 to 32767. The high bit of byte 3 is again used to indicate the 
sign. The value is easily determined from the following: 

(BYTE3 AND 127)*256+BYTE4+(BYTE3>127)*32768 
String variables 

These are the easiest of all to pick out. At $0A59 in the display above is 
the variable M$(its second byte is not used so is set to $80). Byte 3 tells 
us it is seven characters long, and bytes 4 and 5 that it is located at 
$9FED. The seven bytes from $9FED are "STRING1" as would be expec¬ 
ted. Strings therefore use seven plus the number of characters bytes of 
ram. There is one important point to make before leaving strings. If line 
3 had simply been M$="STRING1", its pointer would have pointed to 
the byte at which it occurred within the program itself, that is, the byte 
immediately following the quote. Only computed strings are stored at 
the top of memory which is why the line was written 
M$=M$+"STRING1". This economizes on memory usage by only 
storing the string once. It does have the drawback that if another 
program is loaded in program mode all non-computed strings are lost. 

Subscripted variables 

Arrays may be of any type, but unlike their 'simple' counterparts, only 
the required number of bytes are used to store the associated values. 
Real are stored in five bytes, integer in two and strings in three plus 
their length. In addition to the savings in storing the values, the array 
name is only stored once. Arrays are also created in the order in which 
they are encountered. 

The area of memory used for arrays immediately follows that for 
simple variables. As for the latter, it, too, is recorded at two zero page 
locations. The start, ARYTAB, has already been mentioned when 
dealing with simple variables. The end, STREND, is held in 
$31-$32/49-50. For each new simple variable this whole block must be 
moved up seven bytes in memory. There will, of course, come a time 
when array storage builds up to meet that of the descending strings 
with the resulting 'OUT OF MEMORY' error. 

Each array is preceded by a detailed header of the form shown 


below: 




Byte 

1 and 2 

3 4 

5 

6 7 N-1 N 

NAME 

OFFSET TO 

NO. 

FAST.... FIRST 


1ST VAFUE 

DIMS 

DIM+1.DIM+1 

Adj. form 

low high 

<256 

low high..low high 


Bytes 1 and 2 hold the name in its adjusted form. Bytes 3 and 4 record 
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the overall memory requirement for the array (this does not include 
string data at the top of memory) and is the offset from its start to the 
next array. Byte 5 records the level of dimensioning and may not 
exceed 255 (a little difficult to visualize at anything more than two or 
three). If an undimensioned array is used, this value will default to 
the number of subscripts at the first occurrence. Successive pairs of 
bytes then hold the number of elements in each dimension (plus one 
for the zero subscript) in the reverse order of dimensioning. If no 
dimensioning has been used, these each default to 11 (10+1). The 
following bytes are then used to store the data. 

If the program is again run and memory between ARYTAB and 
STREND displayed, the following results: 


0AAC 

41 

00 

25 

00 

01 

00 

06 

00 

A.%. 

0AB4 

00 

00 

00 

00 

81 

00 

00 

00 


0ABC 

00 

82 

00 

00 

00 

00 

82 

40 


0AC4 

00 

00 

00 

83 

00 

00 

00 

00 


0ACC 

83 

20 

00 

00 

00 

C2 

80 

13 


0AD4 

00 

01 

00 

06 

00 

00 

00 

01 


0ADC 

00 

02 

00 

03 

00 

04 

00 

05 


0AE4 

43 

80 

19 

00 

01 

00 

06 

01 

C. 

0AEC 

FF 

9F 

01 

FD 

9F 

01 

FB 

9F 


0AF4 

01 

F9 

9F 

01 

F7 

9F 

01 

F5 


0AFC 

9F 

44 

80 

3F 

00 

02 

00 

06 

.D.?.. . . 

0B04 

00 

03 

00 

00 

00 

01 

FE 

9F 


0B0C 

00 

00 

00 

00 

00 

00 

01 

FC 


0B14 

9F 

00 

00 

00 

00 

00 

00 

01 


0B1C 

FA 

9F 

00 

00 

00 

00 

00 

00 


0B24 

01 

F8 

9F 

00 

00 

00 

00 

00 


0B2C 

00 

01 

F 6 

9F 

00 

00 

00 

00 


0B34 

00 

00 

01 

F4 

9F 

00 

00 

00 


0B3C 

00 

01 

FF 

FF 

00 

01 

FF 

FF 



The first array is 'A(' at $0AAC. It occupies 37 bytes ($0025), and has 
one dimension ($01) of five elements ($06-1). The six values are then 
held in 5 byte real format. The next array starts at 
$0AAC+$25=$0AD1. This is 'B%(' which occupies only 19 ($13) for its 
six values. The values are easily read out as 0, 1, 2, 3, 4 and 5. The 
next is 'C$(', and looking at the previous display we can read out its 
values as @, A, B, C, D and E. A little care has to be exercised here as 
in the loop which generated them 'D$(' was also defined each time. 
This last array is the most complex of all. In its dimension statement it 
was defined as D$(2,5). However, in its header these are reversed 
(last....first). The values set were assigned to D$(1,l) and from the 
display we can see these occur at the second and subsequently at 
every third byte. This shows us that multi-dimensional arrays are 
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stored in the form X(0,0) X(1,0)... X(N,0) X(0,1) X(1,1).X(N,N). 

This just about concludes our section on variables, except to say that 
the default values are zero for numeric and null for strings. 


Link addresses and line numbers 

General 

Knowing where and in what form these are stored, there is no reason 
why we cannot modify them from basic itself. This we can do using 
simple pokes to produce some interesting results. 

Links 

If we modify a link address, the program will continue to run. It will, 
however, list in an unusual fashion and be difficult to edit. We can use 
this fact to make our programs difficult to read and modify. This we can 
do by hiding lines (the whole program if we wish). Hiding line 110 of 
the display program, as its listing was originally given, can be done by 

POKE 2049,45 

This simply skips the link at $0817. We could very easily write a short 
routine to eliminate whole blocks of line numbers. This we leave up to 
you. 

Line numbers 

We can change line numbers as we did link addresses. We could 
change the line number of 100 to any value we choose. 

POKE 2051,110 

will, on listing the program, give two line 110s. A little care should be 
taken here, because if the line number changed is the destination for a 
GOTO or a GOSUB, some confusion may result. 

Saving modified code 

basic's save command transfers to tape or disk a copy of the ram 
between TXTTAB and VARTAB. This means any modifications are also 
saved. The modified code returns on loading. 

Modifying BASIC 

Changing the load address 

We can change the point at which basic programs load simply by 
setting the value in TXTTAB. Wherever the new start is to be, a zero 
must be set in the byte immediately before it. Once the new start has 
been set, a NEW will tidy up all other pointers. 

Changing the start of basic is useful if using sprites or programmable 
characters within bank 0 (the default). The Programmer's Reference 
Guide recommends lowering the top of memory to make room for the 
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necessary data. Instead, why not move up the start of basic and leave 
yourself with far more memory to use? 

Chaining programs 

Chaining in this context refers to loading one program from within 
another. 

The question arises as to whether there is a bug in the chaining 
process. The answer is a qualified 'no' as there can be problems. The 
effect of a program load is roughly equivalent to executing a GOTO 
the first statement of the chained program. Thus, the new program can 
use only real, integer and computed string variables from the first. The 
problem occurs when the incoming program is larger than the original. 
If this is the case, it will overwrite the start of the variables, causing 
utter confusion. Once this has happened you really need to issue a clr 
at the start of the new program to tidy things up. You have apparently 
lost all the variables anyway so there is nothing to lose. 

On some micros a chain command exists in addition to the normal 
load. The action of this command is to move all or only the specified 
variables out of the way during the loading process and then move 
them back and update the necessary pointers. On the 64 no such 
command is available. There are two solutions. The first is to ensure a 
larger program is never loaded from a smaller one. The second is to 
make the first program the largest. To do this we do not need to 
generate a large program'. All that is needed is a simple poke and clr 
sequence at the start of the first program to reserve the necessary 
memory, basic; can be fooled by: 

POKE 46, (SIZE OF BIGGEST PROG)/256+8+1: CLR 

In this example we have not bothered to be exact and have simply 
reserved to the nearest page. 

Speeding up program execution 

There are many ways in which to increase the speed of a program. The 
speed of peripheral devices plays a major part when inputting or out- 
putting, but the topics covered here are mainly concerned with the 64 
itself. 

There are commercial 'CRUNCEC or 'compactor' programs available. 
These traditionally remove all unnecessary spaces, REMs, combine 
lines not the destination of a GOTO or GOSUB and that is about all. 
Even these few changes can produce significant increases in execution 
speed. Some of this we can do from basic itself. A short routine at the 
start of a program can combine lines by eliminating link addresses and 
line numbers, and remove all rems and all spaces not inside quotations. 
After each deletion, the remaining code is moved down in memory 
and VARTAB is updated. The end of line marker must be replaced by a 
':' to separate the last statement from the leading statement on the 
crunched line. There are a number of problems here. If a line number 
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is eliminated which is referenced by a THEN, GOTO or GOSUB, the 
run will fail. The second problem stems from all statements following 
an IF being ignored if the condition is false. The resulting compacted 
lines are so long that they cannot be edited. As such, a universal 
compactor program in basic is fraught with danger. 

It is far more sensible to consider these points at the time of writing 
the program. A well-known technique is to ensure that all GOTOs have 
destinations as near the start of the program as possible as the inter¬ 
preter starts its search there. If this cannot be done, then the desti¬ 
nation should have its high byte greater than that of the GOTO line 
due to the search technique used which compares this byte first. 

There are three other common methods used to optimize the code: 

(i) the use of variables rather than constants; 

(ii) the setting up of variables in the order of frequency of use; 

(iii) and, specific to the 64, turning off the video display when not in 
use (see Programmer's Reference Guide , Appendix N, 'Screen 
Blanking'). 

Using these techniques, the second program below runs almost 25% 
faster than the first: 

18 PRINTTI 
20 POKE 49152,0 
30 FOR 1=0 TO 5000 
40 J=J+1 
50 NEXT I 
60 POKE 49152,16 
70 PRINTTI 


10 PRINTTI:P0KE53265,0:P=1 :FORI=0TO5000 s 
J=J+P:NEXT:P0KE53265,16:PRINTTI 

The second program does leave you in x and y scroll mode if you are 
wondering just what has happened. 


Conclusion 

This chapter should have given you one or two ideas to play around 
with. Before reading Chapter 5, you might like to think about how to 
write simple renumber, delete, dump, and recover NEwed program 
routines. You might also like to think about how to overcome the 
chaining problem by, as the last action on leaving a program, moving 
all variables as high as they can go in memory. The first action of the 
chained program should be to move them back down to the end of this 
program and reset the necessary zero page pointers. 




2 Peripherals 


Introduction 

This chapter deals with some of the more common peripherals for the 
64. Also included here are the keyboard and screen even though they 
are not quite peripherals in the same sense as a disk drive, cassette or 
printer. 

It is not our intention to go into any of these in great detail as the 
subject could fill a book of its own. We have tried to look at features of 
more immediate use. 


Keyboard 

Use of the keyboard, its rom drive routines and ram vectors is covered 
in Chapter 4. Programming of the keyboard is used extensively in 
Chapter 5. The following are a few useful points not directly covered 
elsewhere. 

Keyboard as a device 

The keyboard is viewed as device 0 by the 64's operating system and is 
the default for input. As such it may be used like any other device and a 
file OPENed to it. This file may only be for input and any attempt to 
output to it will result in an error. Once opened for input the 
'annoying' question mark prompt is removed from the input command 
display. When information is being obtained from it using input# all 
warning messages, such as the double question mark for insufficient 
data, also disappear. The open format is the same as for any other 
device: 


OPEN 1,0 or OPEN 1,0,129,"QWERTY" 

In the second example everything following the 0 will be ignored. Use 
of the keyboard in this way is highlighted in the disk utility facility in 
this chapter (see below). 

Auto-repeat 
See Chapter 10. 

Key detection 

See Chapter4 and Appendix I. 
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Keyboard Buffer - KEYD ($0277-$0280/631-640) 

The 64 provides type-ahead of up to ten characters. The buffer 
operates on the principle of first in/first out. However, once full no 
new characters will be accepted until it has been partially emptied. 
Characters are taken singly by a get, up to the first return on an input 
and the buffer is emptied on an end. 

The length of the buffer is determined by XMAX ($0289/649) and as 
this is in ram it may be changed. Theoretically, the buffer could be 
lengthened, but in practice this cannot be done as the ram immediately 
following it is used for other purposes. The size, however, may be 
decreased and is perhaps most useful when the length is set to 1 where 
a program requires careful, restricted input or type-ahead is to be 
discouraged. Setting XMAX to 0 is quite a good way to prevent 
unwanted user input (the stop key is still active as it is scanned by a 
different routine - see Chapter 10 to disable). 

As the buffer is in ram we can put data directly into it by simply 
POKEing the ASCII codes of the characters required. To complete the 
process NDX ($C6/198) must be set to tell the system how many 
characters are in the buffer. This type of approach is used extensively 
in the basic utilities in Chapter 5 and we refer you there for examples of 
using the keyboard in this way. 

One final point before leaving the keyboard which many of you may 
have already discovered. Pressing the 'Control' key with any other 
simply sets bit 6 of the ASCII code of the character low. For example, 
CNRi/r is the same as the del key ($14/20). 

Cassette 

The 64 does not have to use a CBM Datassette. There are, to our 
knowledge, two manufacturers of interfaces which allow standard 
cassette recorders to be used. These interfaces duplicate the part of 
the interface normally resident within the Datassette. It is even pos¬ 
sible to use a standard cassette through a suitable edge connector, but 
do not expect a high success rate in loading back saved programs or to 
get anything from recordings produced on a CBM recorder (see Pro¬ 
grammer's Reference Guide , Appendix I for connection details). 

Many consider the cost of the dedicated cassette high. However, it 
avoids the need to adjust the volume and tone controls to ensure an 
accurate save (a problem on many other micros where even saving 
twice is not guaranteed to work). It also seems slow, but perhaps is not 
as slow as it at first appears. Data is transferred between the 64 and the 
cassette at about 300 baud (some micros offer an optional fast 1200 
baud rate). When a program is saved two copies are made. On 
reloading the first copy is put into memory and this is then compared 
with the second to check for and possibly recover load errors. In our 
experience it has proved worth the additional expense to buy the 
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Datassette for peace of mind and to avoid the loss of many hours of 
hard work. 

The speed of operation of the cassette has been chosen for 
reliability, but like most things on the 64 we can even change that. For 
many years superfast, jet, turbo, fast or whatever you care to call them, 
operating systems have been available for the pet, more recently for the 
VIC20 (ARROW) and now for the 64. The machine code listing of the 
original pet version has even been published. Many games now come 
with a high-speed load (some without the option for a normal load 
which has proved annoying when your cassette cannot cope with fast 
loads). These fast operating systems can be made to run the cassette at 
a higher speed than the standard operating speed of the disk drive 
(even this can be increased). There is no secret as to how it is done, but 
as many software houses pay a royalty for its use, or even sell their own 
versions of a high-speed loader, we have decided not to include a 
version of our own. 

LOAD and SAVE with cassette (see Programmer's Reference Guide, 
Chapter 2) 

These are dealt with in detail in the Programmer's Reference Guide, so 
we will deal with them briefly here. The general syntax for save is 
(where square brackets denote optional parameters): 

SAVE["program" or string variable] [,device] 

[, secondary address] 

If no parameters are specified, the basic program currently in memory 
will be copied to the default of cassette without a name. 

The secondary address is the more interesting. A secondary address 
of 2 will write an end of tape marker and one of 3 appears at first sight 
to do exactly the same. Using either of these will prevent the tape 
being read beyond this point without being physically wound on. 
There is, however, a world of difference on loading (see below). With 
an address of 3 not only is the end of tape set, but an end of tape 
header is written which is a duplicate of the program header with a 
type of 5. 

The area of ram saved is that between the values held in TXTTAB and 
VARTAB. These pointers are automatically kept up to date by the 
operating system whilst a program is being edited. Should we wish to 
save an area of memory other than the basic program, we can set these 
up by POKEing in the appropriate values (remember low/high format). 
This allows us to save machine code from basic or even the screen 
itself. Data stored in memory is more economically saved this way as 
only single bytes are saved and not the ASCII characters which make 
up each number (saves at least two bytes per number between 0 and 
255). The problem is that on returning from the save, the current basic 
program and variables are lost until these pointers are restored. If you 
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are going to play with TXTTAB and VARTAB from basic, put the original 
values out of harm's way, say below $0800 or above $C000, to allow 
them to be recovered. 

The syntax for load is identical to that for save: 

LOAD [“program" or string variable] [,device] 

[,secondary address] 

load reads the next program from tape. If a program name is specified, 
then the named program will be searched for and if found loaded or if 
an end of tape marker is found first the cassette will stop. Again it is the 
secondary address which is of major importance. A 1 requests the 
operating system to put the program at the same location from which it 
was saved. If no secondary address is specified, then providing the 
program came from an address above the current start of basic it will 
return to its original location, but after the load TXTTAB will still hold 
the start of basic whereas VARTAB will hold the end address. The same 
is true when 1 is used, but in this case a load may be carried out below 
the start of basic. Typically, when loading machine code from basic an 
'OUT OF MEMORY' error results if the code locates above $9FFF due to 
the setting of VARTAB. A save with a secondary address of 3 ensures 
the code is reloaded to its original address, regardless of the syntax of 
the load command (extended monitors use 3). 

Tape Buffer 

The tape uses a 192 byte I/O buffer, TBUFFR, which in its default setting 
extends from $033C-03FB/828-1019. TBUFFR need not reside here and 
may be relocated, as a pointer to its start is held in ram at sal 
($AC-AD/172-173). To move it, simply poke in the new location in the 
usual low/high byte format (STOP/RESTORE will reset it). We have 
found this of use when storing sprite data blocks in bank 0 when 
memory is tight ($C000 is yet again a good place to put it). Usage of the 
buffer is very different between program and data files. Programs only 
use the buffer to store their header information (see below) and the 
transfer of memory is direct from the I/O port without passing through 
the buffer. Data files, on the other hand, use the buffer initially for the 
header then subsequently to hold 191 byte blocks (the first byte is used 
as a marker). This avoids continual starting and stopping of the tape 
motor and by using this block system the tape is more reliable as it is 
allowed to pick up speed between each read/write operation. Another 
zero page location, BUFPNT ($A6/166), holds the current position 
within the buffer. 

Tape Headers 

All files are stored on tape with an initial header which is the length of 
the buffer. The exact format depends on the syntax of the save or open 
command (secondary address of 2 on an open also writes an end of tape 
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marker). Each is made up of an identifier, two addresses and a file 
name, the format of which is given below: 


Program headers 


ID 

START 

END 

FILE NAME (spaces to pad) 

1 

18 

2516 

65 66 67 32 32.32 

Data headers 

ID 

START 

END 

FILE NAME 

4 

60 3 

252 3 

68 65 66 32 32 


The ID identifies the file type and for a program may also take a value 
of 3. The two bytes immediately following it are the start load address 
in low/high format and the next two the end address. The file name is 
not limited to 16 characters and in fact can be up to 187 characters. This 
allows machine code to be embedded in a header to add additional 

security to a program. When the name is printed out by loading. 

only the first 16 characters are displayed. The header to a data file also 
contains the start/end bytes but these hold the start and end of TBUFFR 
itself. 

The last operation on completion of a save or write is to store a 
duplicate header. If the command had a secondary address indicating 
an end of tape marker, then the ID would be changed to a 5 before 
writing. On loading or reading to the end of a file the last operation is 
to get back this trailing header (which remains until the next tape 
operation). 

Tape directories 

Tape directories as such do not exist unless you are using an improved 
cassette operating system such as ACOS+. There are times when it is 
necessary to catalogue a tape. The process is time-consuming as it is, 
not surprisingly, directly proportional to the length of the tape. The 
following program may be used to do the job. It is best left running 
whilst you go away to do something else. 

Any header will be read with an open statement. CLOSEing it immedi¬ 
ately ceases tape operation and program execution continues. The 
parameters are then pulled from the buffer and stored for later use. 
The process is repeated for the next header. When the end of tape is 
reached or you stop the program, a simple GOTO 260 will display the 
file information. This is the file type, up to 16 characters of its name 
with non-alphanumeric characters replaced by a and if a program 
its start and end addresses (in hex). 
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100 DIM F*<50>,FT*<50>,SA*<50>,EA*<50):C 
B=828 

110 PRINT"[CLS3PRESS PLAY ON TAPE" 

120 IF PEEK< 1)07 GOTO 120 

130 1=1+1:OPEN 1:CLOSE 1:PRINTFSCI-1) 

140 FT*<I)=RIGHT*<"C5SPC]"+STR*<PEEKCCB) 

>,4> 

150 IF PEEK(CB)=4 THEN SA*<I)=“C2SPC3*** 

*":EA*(I)="!2SPC3****":GOTO 200 
160 X=PEEK< 830):GOSUB 360:SA*<I)=X* 

170 X=PEEK<829):GOSUB 360:SA*<I>=" *" + SA 
I >+X* 

180 X=PEEK<832):GOSUB 360:EA$<I)=X$ 

190 X=PEEK<831):GOSUB 360:EA*<I) = " $ " + EA 
I ) +X* 

200 A*="":FOR J=833 TO 848 

210 X=PEEK(J):IF X<32 OR X>95 THEN A*=A* 

+".":GOTO 230 
220 A*=A*+CHR*<X) 

230 NEXT J 

240 F*<I)=LEFT*<" “+A*+"t18SPC3",17) 

250 GOTO 130 

260 H$="[CLS3TYPE FILENAMEC9SPC3START!3S 
PCI END":PRINTH* 

270 FOR J=1 TO I:PRINTFT*<J);F*<J);SA*<J 
);EA*<J) 

280 IF INT ( J/20)< > J/20 GOTO 320 

290 PRINT"PRESS RETURN FOR NEXT PAGE" 

300 GET A#: IF A*OCHR*<13) GOTO 300 
310 PRINTH* 

320 NEXT J 

330 INPUT "REVIEW AGAIN";Y*:IF Y*="Y" GO 
TO 260 

340 IF Y*<>“N" GOTO 330 

350 CLOSE 1:END 

360 X1=INT(X/l6):X2=X-X1*16 

370 X*=CHR*<Xl+48-7*<Xl>9))+CHR*<X2+48-7 

*<X2>9)) 

380 RETURN 

Unfortunately, during tape I/O the internal clock variable (Tl$) is not 
updated as the interrupt is used exclusively for tape timing. Had this 
not been the case, a read of this variable could have been used to 
calculate the value of the tape counter. The best suggestion we can 
come up with is if the file is a program then the difference in its start 
and end addresses could be used to determine the loading time. For a 
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data file bytes could be taken until the status is set to the end of file, 
the number of bytes read being an indication of the time. We might as 
well do this as the tape is running anyway. The time taken may be used 
to work out an approximate counter reading. 

Auto-running 

Generating programs which auto-run is also discussed in Chapter 10. 
There are many ways to accomplish this, most of which involve fairly 
detailed knowledge of the operating system. The following are sug¬ 
gestions only for you to pursue. All but one are suitable for disk or 
tape. 

The stack 

During load the return address is placed on the stack. As this is an area 
of ram, there is no reason why we cannot load through this area and 
put our own address on instead. This could then go to our own 
machine code routine. The file type should be 3 to ensure a load to its 
original position. The same would apply to disk or tape if loaded with a 
secondary address of 1. 

BASIC warm start - $0302 

After a load in direct mode basic is warm-started. Again as this vector is 
held in ram we can load through it. The new value it then contained 
could jump to our machine code or straight to run (for basic programs). 

IRQTMP- S029F 

This stores the current IRQ vector during tape I/O which is restored 
after the tape operation. Again we can do the same to this as in the 
above. On the first normal interrupt the action will be taken. This, of 
course, can only be used with tape. 

CHAIN command of the UTILITY 
See Chapter 8. 


Screen 

The utilities in this section are confined to the text screen. 

The screen on the 64 is a 40 column by 25 line memory-mapped 
display. Chapter 3 and Appendices B to D of the Programmer's Refer¬ 
ence Guide cover in great detail all aspects of the screen and it is to 
there that we refer you. All the following utilities assume that you are 
familiar with or know the following. 

i) The screen may be moved from its default position. 

ii) There are two character sets. 

iii) The screen has an associated colour map at $D800 on. 

iv) The display codes differ from the ASCII codes. 

v) Commodore 'ASCII' is not true ASCII which only ranges from 0 to 
127. (Consult your printer manual.) 
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Printer dump 

There are two routines, both of which output the current display in 
standard ASCII to a printer. One is a basic subroutine and the other is 
machine code. The second is noticeably faster than the first, as would 
be expected. 

Both routines take account of whether the 64 is in upper or lower 
case mode as well as checking for the location of the screen. 

64 owners with Commodore printers need not concern themselves 
with the conversions to standard ASCII. 

BASIC printer dump subroutine 

The version given here is for an RS232 printer running at 300 baud 
without auto-line feed. For this reason the output logical file is 
assigned at the start of the program. The out put file is designated '?' to 
avoid specific reference to allow for easier change to other printers. 
The display is centred on an 80 column display by printing 20 spaces at 
the start of each line. 

The program first examines the lower/upper case register at 53272 by 
calling the subroutine at 60090. If in lower case, LC is assigned a value 
of 32 (note lower case 'a' in character set 2 has a PEEK value of 1 which 
is standard ASCII is 97 - that is, bit 5 set). This adjustment will be 
applied to all letters between 'a' and 'z'. The whole dump is enclosed 
within two loops: I for the rows and ) for the columns. All screen codes 
are ANDed with 127 to reduce them to values in the range 0 to 127 to 
eliminate reversed characters. If the screen code is <32, we have to 
add 64 and the LC adjustment. If it lies between 32 and 65, we can print 
it unchanged. Only if in lower case mode do we need to check for 
upper case letters. If we were in upper case, these would be non- 
printed graphic characters. If in LC then the ANDed code is already in 
standard ASCII. If all the tests have failed, we have a graphic character 
so we replace it by a space to maintain the layout of printable text. 
Once a screen line has been processed we print it preceded by 20 
spaces and recycle for all remaining 24 lines. 

10 OPEN 129,2,0,CHR*<6> 

60000 GOSUB 60090 

60010 FOR 1=0 TO 24:A$="“:FOR J=0 TO 39: 
CH=PEEK<S+I*40+J> 

60020 CH=CH AND 127 

60030 IF CH<32 THEN CH=CH+64+LC:GOTO 600 
70 

60040 IF CH<65 GOTO 60070 
60050 IF CH<91 AND LC GOTO 60070 
60060 CH=G 

60070 A$=A$+ CHR$ < CH):NEXT J 

60080 PRINT#P,SPC(SP);A$:NEXT I:CLOSE P: 

RETURN 
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60090 P=129:SP=20:6=32 

60100 LC=0:IF PEEK(53272)=23 THEN LC=32 
60110 S=PEEK(648)*256:RETURN 

Whenever a dump is required, simply GOSUB 60000. This could be 
actioned by, say, a get statement, but should not add to the display, or 
if it does then only 24 lines should be printed. To improve the present¬ 
ation, blank lines or a form feed should be issued at the end of the 
dump. 

Machine code printer dump 

The logic of this routine is identical to that above and is therefore not 
described in detail. The differences are that it is much faster and it does 
not pad a line with 20 leading spaces. 

The routine as written assumes logical file 2 is open to the printer at 
the time of calling. To change this, simply alter the byte at $C001 with a 
poke. It works by changing the output device through the chkout kernal 
call to that associated with file #2 (the equivalent of a cmd from basic). 
This then allows us to use the kernal routine chrout to output the data. 
There is a routine in rom which could be used to do most of the 
conversion, but for this exercise the technique used here is adequate 
and easier to follow. The device need not be the printer and could be 
the disk or tape depending on the open statement. We do not recom¬ 
mend you use this routine with anything other than a printer as far 
better screen saves follow. Once the dump is complete, the default 
device for output is restored to the screen before returning to basic. 

The routine is used by at some point including an open 2,4 or open 
2,2,CHR$() if using RS232. A simple sys 49152 will perform the dump. If 
your printer requires a forced line feed, make the necessary adjust¬ 
ment to $C001 for a value greater than 127. 

BASIC loader for the machine code 

The following must be loaded and run. Once this has been done the 
code remains present until overwritten by something else. Once run 
the machine code may be saved using an extended monitor for ease of 
loading later. 


1 

DATA 

162, 2, 32, 

201 , 

255 

, 173, 136, 2 


133, 

88, 169 




2 

DATA 

0, 133, 87, 

173, 

24, 

208, 201, 21 

* 

208, 

6 




3 

DATA 

169, 0, 133, 

89, 

240 

, 4, 169, 32, 


133, 1 

39 




4 

DATA 

169, 32, 133 

, 90 

, 24 

, 165, 88, 10 

5 

f 3, 

133 




5 

DATA 

91, 162, 4, 

160, 

0, 

177, 87, 41, 


127, 24 
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6 DATA 201, 

31 , 

176, 

7, 

24, 105, 

64, 101 

, 89, 144 

7 DATA 24, 

24, 

201 , 

64, 

176, 2, 

144, 17, 

24, 165 

8 DATA 89, 

240 , 

10, 

177, 

87, 24, 

201, 91 

, 176, 3 

9 DATA 24, 

144, 

2, 169, 

32, 32, 

210, 255 

, 224, 1 

10 DATA 208 

, 4, 

192, 

232 

, 240, 23, 230, 

96, 201, 40 
11 DATA 208 

, 9, 

169, 

13, 

32, 210 

, 255, 1 

69, 8, 133 
12 DATA 96, 

200 

, 208 

, 187, 230, 

88, 202, 


208, 182, 169 

13 DATA 13, 32, 218, 255, 162, 0, 32, 20 
1, 255, 96 

14 DATA 0, 255, 255, 0, 0, 255, 255, 0, 
0, 255 

15 FOR 1=49152 TO 49292:READ A:POKE I,A: 
NEXT I 


Here is the assembly listing which is fully annotated to allow you to 
follow it: 


C 000 

A202 

LDX 

#$02 

1 09 -file to pr i n ter 

C000 

20C9FF 

JSR 

$FFC9 

perform CMD2 via CHKOUT 

C005 

AD8802 

LDA 

$0288 

screen start from HIBASE 

C008 

8558 

STA 

$58 

set start registers 

C00A 

A900 

LDA 

#$00 


C00C 

8557 

STA 

$57 


C00E 

AD18D0 

LDA 

$D018 

check upper/lower case 

C011 

C915 

CMP 

#$15 

is it upper 

C013 

D006 

BNE 

$C01B 

no 

C015 

A900 

LDA 

#$00 

set adjustment value 

C017 

8559 

STA 

$59 

for ASCII 

C019 

F004 

BEQ 

$C01F 

skip lower case 

C 01 B 

A920 

LDA 

#$20 

lower case set adj flag 

C01D 

8559 

STA 

$59 

as ASCII a=?7 etc. 

C01F 

A920 

LDA 

#$20 

set non-printable flag 

C021 

855A 

STA 

$5A 

to a space 

C023 

18 

CLC 



C024 

A558 

LDA 

$58 

set MSB end of screen 

C026 

6903 

ADC 

#$03 


C028 

855B 

STA 

$5B 


C02A 

A204 

LDX 

#$04 

almost 4 pages/screen 

C02C 

A000 

LDY 

#$00 

counter within page 
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C02E 

BI 57 

LDA 

($57),Y 

C030 

297F 

AND 

#$7F 

Remember difference 

between 

C032 

18 

CLC 


C033 

C91F 

CMP 

#$1F 

C035 

B007 

BCS 

$C03E 

C037 

18 

CLC 


C038 

6940 

ADC 

#$40 

C03A 

6559 

ADC 

$59 

C83C 

9018 

BCC 

$C056 

C03E 

18 

CLC 


C03F 

C940 

CMP 

#$40 

C041 

B002 

BCS 

$C045 

C043 

9011 

BCC 

$C056 

C045 

18 

CLC 


C046 

A559 

LDA 

$59 

C048 

F00A 

BEQ 

$C054 

C04A 

BI 57 

LDA 

($57),Y 

C04C 

18 

CLC 


C04D 

C95B 

CMP 

#$5B 

C04F 

B003 

BCS 

$C054 

C051 

18 

CLC 


C052 

9002 

BCC 

$C056 

C054 

A920 

LDA 

#$20 

C056 

20D2FF 

JSR 

$FFD2 

C059 

E001 

CPX 

#$01 

C05B 

D004 

BNE 

$C061 

C05D 

C0E8 

CPY 

#$E8 

C05F 

F017 

BEQ 

$C078 

C061 

E660 

INC 

$60 

C063 

C928 

CMP 

#$28 

C065 

B009 

BNE 

$C070 

C067 

A90D 

LDA 

#$0D 

C069 

20D2FF 

JSR 

$FFD2 

C06C 

A900 

LDA 

#$00 

C06E 

8560 

STA 

$60 

C070 

C8 

I NY 


C071 

D0BB 

BNE 

$C02E 

C073 

E658 

INC 

$58 

C075 

CA 

DEX 


C076 

D0B6 

BNE 

$C02E 

C078 

A90D 

LDA 

#$0D 

C07A 

20D2FF 

JSR 

$FFD2 

C07D 

A200 

LDX 

#$00 

C07F 

20C9FF 

JSR 

$FFC9 

C082 

60 

RTS 



get byte 

eliminate high bit 7 
screen and ASCII codes 
start checks 
less than a space 
no go to next check 

make ASCII by adding 64 
add lower case adj. 
always taken 

check -for upper case in 
1/c mode & branch > 65 
!-? same in both sets 
check upper case 
i f zero 

branch to avoid graphic 
get 1/c byte again 
check not gt Z 

if so avoid graphic 

valid A-Z so skip space 

print char 

on last page 

no - so branch 

yes so check end $**E8 

branch all done 

end of screen line reg 
is it 48 dec 
no so skip next bit 
output next bit 
pr i nt it 

rezero end of line reg 

continue current page 
branch if not finished 
inc next page register 

always taken 
RETURN for last line 

restore screen output 
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To improve this, why not patch into the interrupt routine to, for 
example, dump the screen whenever a designated key is pressed 
rather than using the sys command? Chapter 4 explains the interrupt in 
detail and Chapter 10 gives an example of its use. If you decide to do 
this, remember to include a routine to disable the patch. The necessary 
enable and disable routines can be added at the end of the code as 
given. The logical file will still have to be opened unless the appropriate 
kernal routines are called. 


Screen dumps 

Three ways are given to save the screen and its associated colour map 
in this section. Two are in basic and the third is in machine code. Both 
basic programs use a sequential file to store the data, but differ in the 
length of file produced. The machine code saves the screen as a 
program file and is the most economical and by far the quickest. 

A few points should be made before discussing the routines in 
detail. Any area of memory may be saved from basic by setting TXTTAB 
and VARTAB to its start and end addresses. The problem is that once 
we have changed these pointers we have temporarily lost our program. 
Another problem is that a load will cause basic to warm-start, which is 
this case will be at the newly set TXTTAB address. The screen is an area 
of memory and may be loaded and saved in this way. Unfortunately, its 
default position is below the normal start of basic so a 'crash' or 
'hang-up' is usually the result. Try it and see. So from a practical 
viewpoint we must resort to other means. 

All the following routines check HIBASE for the current screen loca¬ 
tion. The resulting screens will always reload to the current screen 
position regardless of its location at the time of saving. The reloaded 
screen will be identical to that saved in both characters and colours. 

Screen save using numbers 

This routine firstly peeks out the border and background colours and 
writes them, as numbers, to a disk file (change the open command for 
tape). It then proceeds, writing alternate screen and colour values until 
finished. 


To save a screen: GOSUB 60000 
To load a screen: GOSUB 60050 


60008 OPEN 2,8,2,"30:TEST,S,W“ 

60010 S=PEEK(648)*256:0=55296 

60020 PRINT#2,PEEK(53280);-,";PEEK<53281 

);CHR$(13); 

60030 FOR I=S TO S+999:PRINT#2,PEEK(I);“ 
,“;PEEK<C+1-S);CHR$<13);:NEXT IzCLOSE 2 
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60040 RETURN 

60050 OPEN 3,8,3,"TEST,S,R" 

60060 INPUTM3,A,B:POKE 53280,A:POKE 5328 
I , B 

60070 S=PEEK<648)*256:C=55296 

60080 FOR I=S TO S+999:INPUT#3,A,B:POKE 

I,A:POKE C+I-S,B:NEXT I:CLOSE 3:RETURN 

Because numbers are written as their ASCII codes three to five bytes 
are used for each value (spaceXXXreturn). Therefore, using this 
method we will generate a sequential file of between 6 and 10K, which 
seems rather excessive. The second method reduces the size of this 
file. 

Screen save using characters 

This time a single byte is used to store each value in the screen and 
colour maps. This is done by simply PEEKing the value and generating 
the corresponding chr$o character with the asco function. Zero values 
must be trapped as asc(0> will give a syntax error. The resulting file uses 
only one byte for most values and the file size is therefore about 2K. 
This is obviously far faster to generate and restore. 

To save a screen: COSUB 60000 
To load a screen: COSUB 60050 


60000 OPEN 2,3,2,“30:TEST,S,W" 

60010 S=PEEK<648)*256:0=55296 

60020 PRINT#2,CHR$< PEEKC 53280));CHR*<PEE 

K< 53281)); 

60030 FOR I=S TO S+999:PRINT#2,CHR*<PEEK 
<I));CHR*(PEEK<C+I-S)>;:NEXT I:CLOSE 2 
60040 RETURN 

60050 OPEN 3,8,3,"TEST,S,R" 

60060 GET#3,A*:IF A*="“ THEN A*=CHR*<0) 
60070 POKE 53280,ASC(A$) 

60080 GET#3,A$:IF A*="" THEN A*=CHR*<0) 
60090 POKE 53281,ASC<A*) 

60100 S=PEEK<648)*256:0=55296 
60110 FOR I=S TO S+ 999:GET#3,A$:IF A*="" 
THEN A*=CHR*<0) 

60120 POKE I,ASC<A*):GET#3,A*:IF A*="" T 
HEN A*=CHR*<0) 

60130 POKE C+I-S,ASC(A*>:NEXT I:CL0SE 3: 
RETURN 
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Machine code screen save 

This is by far the best method. It is very simple to use the kernal load 
and save for both the screen and colour maps. Using these as they 
stand, two files would be generated - one for the colour map and one 
for the screen. This is no hardship, but a relocated load would be 
required if a screen is being restored to a different location from 
whence it came. This is not difficult, but perhaps is not the best way. 

We have approached the problem slightly differently. Before per¬ 
forming the save, the screen and colour maps are combined into a 2K 
block at a convenient address. This has to be out of the way of basic to 
avoid corrupting program or data areas. This could be a reserved area 
at the end of basic or even under basic rom if a switch like that used in 
the utility is implemented to throw out and restore rom. This is pos¬ 
sible as no basic rom calls are made. For this example we have chosen 
to move the screen from its current position to $C400 and the colour 
map to $C800. The routine also saves the sprite pointers and if you do 
not wish it to do so then you will have to modify the code to move 1000 
rather than its current 1024 bytes from or to each area. 

All the routine does to save is to move both screen and colour maps 
then use the kernal save from $C400 to $CC00. To restore the screen it 
is reloaded to $C400 and moved back to the colour map and the 
current screen position. 

BASIC loader for screen save 

The following must be loaded and run before it can be called. Once 
run it may be saved using an extended monitor for ease of loading 
later. 


1 DATA 32, 253, 
9, 0, 133, 87 

174, 

201, 76, 

208 

, 6 

, 16 

2 DATA 240, 11, 
175, 169 

201 , 

83, 240, 

3, 

32, 

8, 

3 DATA 255, 133 

N 

CO 

32, 115, 

0, 

32, 

253 


, 174, 201 

4 DATA 34, 240, 3, 32, 8, 175, 32, 115, 
0, 165 

5 DATA 122, 133, 187, 165, 123, 133, 188 
, 160, 0, 177 

6 DATA 122, 201, 34, 240, 8, 200, 192, 1 
9, 208, 245 

7 DATA 32, 8, 175, 132, 183, 152, 24, 10 
1, 122, 133 

8 DATA 122, 144, 2, 230, 123, 32, 115, 0 
, 32, 253 

9 DATA 174, 144, 3, 32, 8, 175, 56, 233, 
48, 133 
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10 

DATA 

186, 

169 

, G 

133, 

184, 


133 

, 185, 

169, 0, 

, 133 








1 1 

DATA 

88, 

133, 

90, 

133, 

92, 

1 

33, 

94, 1 

73, 

136, 

, 2 








12 

DATA 

133, 

89, 

169, 

, 196, 

, 133 

> 

91 

, 169, 


216, 133, 93 


13 

DATA 

169, 

200 

, 133 

, 95, 165 

N 

CO 

248 , 

43 

, 160 

, 0 






14 

DATA 

162, 

4, 

177, 

in 

1 

CO 

CO 

90, 177, 9 

2, 

145, 

94 






15 

DATA 

200 , 

208 

, 245 

, 230, 89 

, 230 

, 91, 

230, 93 

, 230 





16 

DATA 

95, 

202, 

208, 

234, 166 

, 94, 

164, 

95 

, 169 

, 196 





17 

DATA 

133, 

91 , 

169, 

90, 32, 

216, 

255, 

32, 

115, 

0 






18 

DATA 

96, 

165, 

87, 

32, 213, 

255, 

160 , 

0 j 

162, 

4 






19 

DATA 

177, 

90, 

145, 

88, 177, 

94, 

145, 

92, 

200 , 

208 






20 

DATA 

245, 

230 

, 89, 

230, 91, 

230 , 

93, 

230 

, 95, 

202 






21 

DATA 

208, 

234 

, 32, 

115, 0 , 

96, @ 

, 255 


, 255, 0 

22 FOR 1=49152 TO 49362:READ A:POKE I,A: 

NEXT I 
nb"basic2 M 

To save a screen: SYS 49152,S, "filename",DEVICE 

SYS 49152,S, "@0:filename",DEVICE to 
replace on disk 

To load a screen: SYS 49152,L,"filename", DEVICE 

All parameters are required and an illegal or missing parameter will 
produce a syntax error. A file name or a minimum of "" is required, 
even with cassette. Remember all bytes following a sys command are 
ignored. 

The following is the assembly listing, which should be self- 
explanatory. The first part of the routine is our own version of get 
parameters' and is a useful technique when passing parameters to a 
routine enabled with a sys. chrget (see Chapter 3) is used to gather the 
necessary bytes. 
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ASSEMBLY LISTING 

Set up the parameters - common to both LOAD and SAVE 


C000 

20FDAE 

JSR 

*AEFD 

C003 

C94C 

CMP 

#*4C 

C005 

D006 

BNE 

*C00D 

C007 

A900 

LDA 

#*00 

C009 

8557 

STA 

*57 

C00B 

F08B 

BEQ 

*C018 

C00D 

C953 

CMP 

#*53 

C00F 

F003 

BEQ 

*C014 

C011 

2008AF 

JSR 

*AF08 

C014 

A9FF 

LDA 

#*FF 

C016 

8557 

STA 

*57 

C018 

207300 

JSR 

*0073 

C01B 

20FDAE 

JSR 

*AEFD 

C01E 

C922 

CMP 

#*22 

C020 

F003 

BEQ 

*C025 

C022 

2008AF 

JSR 

*AF08 

C025 

207300 

JSR 

*0073 

C028 

A57A 

LDA 

*7A 

C02A 

85BB 

STA 

*BB 

C02C 

A57B 

LDA 

*7B 

C02E 

85BC 

STA 

*BC 

C030 

A000 

LDY 

#*00 

C032 

B17A 

LDA 

■:*7A) ,Y 

C034 

C922 

CMP 

#*22 

C036 

F008 

BEQ 

*C040 

C'038 

C8 

I NY 


C039 

C013 

CPY 

#*13 

C03B 

D0F5 

BNE 

*C032 

C03D 

2008AF 

JSR 

*AF08 

C040 

84B7 

STY 

*B7 

C042 

98 

TYA 


C043 

18 

CLC 


C044 

657A 

ADC 

*7A 

C046 

857A 

STA 

*7A 

C048 

9002 

BCC 

*C04C 

C04A 

E67B 

INC 

*7B 

C04C 

207300 

JSR 

*0873 

C04F 

20FDAE 

JSR 

*AEFD 

C052 

9003 

BCC 

*C057 

C054 

2088AF 

JSR 

*AF08 

C057 

38 

SEC 


C058 

E930 

SBC 

#*38 

C05A 

85BA 

STA 

*BA 

C05C 

A901 

LDA 

#*01 


check -for comma 

is next char L tor LOAD 

no then test -for SAVE 

set -flag at 57 

to zero -for later use 

always taken it LOAD 

is it S tor SAVE ? 

i t so cont i nue 

not L or S=SYNTAX ERROR 

set -flag to FF -for save 

inc CHRGET (see ch.4) 
next comma 

opening quote o-f name 
OK so continue 
no quote so SYNTAX ERROR 
inc CHRGET to name 
set FNADR low byte 

do same tor high 

tind length ot name 

by searching tor closing 

quote 

tound it so exit 

limit ot 16 chars +3 tor 
*30:" toreplace on disk 
>1imit so SYNTAX ERROR 
store length in FNLEN 

set CHRGET to end quote 
low byte 

inc high it page crossed 
get next byte 
comma ? 

OK 

no then SYNTAX ERROR 

make byte a number 0-? 
store current device-FA 
set secondary add to 1 
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C05E 

85B8 

STA 

$B8 


C060 

85B9 

STA 

$B9 


Set up pointers 

to be used 

i n 

C062 

A900 

LDA 

#$00 


C064 

8558 

STA 

$58 


C066 

855A 

STA 

$5A 


C068 

855C 

STA 

$5C 


C06A 

855E 

STA 

$5E 


C06C 

AD8802 

LDA 

$0288 


C06F 

8559 

STA 

$59 


C071 

A9C4 

LDA 

#$C4 


C073 

855B 

STA 

$5B 


C075 

A9D8 

LDA 

#$D8 


C077 

855D 

STA 

$5D 


C079 

A9C8 

LDA 

#$C8 


C07B 

855F 

STA 

$5F 


C07D 

A557 

LDA 

$57 


C07F 

F02B 

BEQ 

$C0AC 


Move 

screen and 

colour to one 

C081 

A000 

LDY 

#$00 


C083 

A204 

LDX 

#$04 


C085 

B158 

LDA 

($53) 

,Y 

C087 

915A 

STA 

($5A) 

,Y 

C089 

B15C 

LDA 

($50 

> Y 

C08B 

915E 

STA 

($5E) , 

i Y 

C08D 

C8 

INY 



C08E 

D0F5 

BNE 

$C085 


C090 

£65? 

INC 

$59 


C092 

E65B 

INC 

$5B 


C094 

E65D 

INC 

$5D 


C096 

E65F 

INC 

$5F 


C098 

CA 

DEX 



C099 

D0EA 

BNE 

$C085 


C09B 

A65E 

LDX 

$5E 


C09D 

A45F 

LDY 

$5F 


C09F 

A9C4 

LDA 

#$C-4 


C0A1 

855B 

STA 

$5B 


C0A3 

A95A 

LDA 

#$5A 


C0A5 

20D8FF 

JSR 

$FFD8 


C0A8 

207300 

JSR 

$0073 


C0AB 

60 

RTS 



Perform LOAD and split block 

C0AC 

A557 

LDA 

$57 


C0AE 

20D5FF 

JSR 

$FFD5 


C0B1 

A000 

LDY 

#$00 


C8B3 

A204 

LDX 

#$04 



and store at SA 

same tor logical -file —LA 

the move 


find the current screen 
start from HIBASE 


8 for LOAD 
do LOAD 

block and perform SAVE 
SAVE use Y within page 
and X for page counter 
read byte from screen 
store at combined area 
get char colour 
store in comb area+$0400 

cycle for one page 
inc all high bytes 


dec X and 

repeat till 4 pages done 
X holds low end of save 
Y the high byte 
use 5A/5B on zero page 
for start of SAVE 
A must hold offset 5A 
do SAVE 

must inc CHRGET before 
returning to BASIC 
into char and colour maps 
read flag - A=0 for LOAD 
do LOAD ' 
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C0B5 

B15A 

LDA 

<$5A),Y 

reverse of SAME 

C0B7 

9158 

STA 

($58),Y 

even if the screen 

C0B9 

B15E 

LDA 

<$5E) ,Y 

was at a different 

C0BB 

915C 

STA 

($50 ,Y 

location at the time of 

C0BD 

C8 

I NY 


SAME it will go to the 

C0BE 

D0F5 

BNE 

$C0B5 

current position 

C0C0 

E659 

INC 

$59 


C0C2 

E65B 

INC 

$5B 


C0C4 

E65D 

INC 

$5D 


C0C 6 

E65F 

INC 

$5F 


C0C8 

CA 

DEX 



C0C9 

D0EA 

BNE 

$C0B5 


C0CB 

207300 

JSR 

$0073 

must inc CHRGET before 

C0CE 

60 

RTS 


returning to BASIC 

Disk 






This section deals with the 1541 disk drive though much is directly 
applicable to the 3040 and 4040 units. 

The manual supplied with the 1541 contains all the information that 
most users will require. Perhaps the most difficult to master are the 
direct access programming commands such as block-read, and so on. 
There is only one way to become proficient in their use and that is to 
experiment. When experimenting we suggest you use a disk con¬ 
taining unwanted information as disasters can happen. 

We supply only one utility in this section which we like to think of as 
an expandable disk utility. Once direct access programming is 
mastered, there are all sorts of fun things you can do. To use it to its 
best advantage you have to know something of how the disk operates 
and how information is stored. To this end we give below a very short 
introduction and would refer you to the 1541 manual itself. 

Introduction 

The 1541 is a self-contained, intelligent device. It has two processors 
and its disk operating system (DOS) in rom along with an area of ram 
used for input/output (buffering) operations. This differs from, say, the 
BBC Micro where the interface is within the micro itself and, depend¬ 
ing on the type of interface, removes ram from the user area. The 
disadvantage to this self-contained arrangement is that you cannot use 
non-Commodore units (there are one or two now available) as most 
disk manufacturers do not supply a suitable controller and DOS. 

Almost the whole of the disk's capacity can be used to store data 
except for one or two reserved areas. The disk is divided into tracks 
which are further subdivided into a varying number of sectors. Tracks 
are numbered from 1 through to 35 whereas sectors start at zero. The 
following is the arrangement for both the 1541 and 4040 units (see 
Table 6.1,1541 manual): 
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TRACK SECTOR TRACK SECTOR 

1-17 0-20 25-30 0-17 

18-24 0-18 31-35 0-16 

In order to know where to find information, the disk uses an index or 
directory track. This is track 18 and it has two special areas. The first is 
track 18 sector 0 and is the Block Availability Map (BAM). This keeps a 
record of all sectors in use unless direct access programming opera¬ 
tions have been used without a block-allocate command. If this is the 
case then the information is there, but can be overwritten as it is empty 
as far as DOS is concerned. The entries in BAM are made up as follows 
(see Table5.1 of manual): 

BYTES CONTENTS 

000-001 Pointer to start of directory 18/01 
002 Holds an 'A' for 4040 format 
004-143 Four bytes for each of the 35 tracks 

indicating whether in use 1=free 0=allocated 
144-161 Disk name plus shifted spaces to make 16 in total 
162-163 Disk ID 
165-166 Disk version of 2A 

Each track uses four bytes in BAM. The first stores the number of free 
sectors on a track and is used in computing blocks free. The remaining 
three are used to indicate whether a particular sector is allocated (bit 
set low and one bit per sector). As the maximum number of sectors is 
21, not all bits are used. The following is a dump of BAM from which 
you can pick out the information given above. All values are given in 
hex with the byte position within the sector given first followed by this 
byte's value and the next seven and at the end of the line the equiva¬ 
lent ASCII characters (if printable): 

START BYTES 

00 12 01 41 00 15 

08 15 ff ff If 15 

10 15 ff ff If 15 

18 15 ff ff If 15 

20 15 ff ff If 15 

28 15 ff ff If 00 

30 00 00 00 00 00 

90 42 4f 4f 4b 20 

98 47 52 41 4d 53 

a0 a0 a0 31 31 a0 


ASCII 


ff 

ff 

If 

..a. 

ff 

ff 

If 


ff 

ff 

If 


ff 

ff 

If 


ff 

ff 

If 


00 

00 

00 


00 

00 

00 


50 

52 

4f 

book pro 

a0 

a0 

a0 

grams 

32 

41 

a0 

11 2a 
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The file information starts on track 18 sector 1 and can continue 
throughout the remainder of the track. Each file uses 32 bytes. 
Therefore, one sector can hold information for eight entries. With a 
possible 20 sectors available, information could be held for 160 files. 
This is unlikely to happen as each file would have to be less then IK. 
The directory format is such that bytes 0-31 hold file 1, 32-63 hold file 
2, and so on. Each entry is divided up as follows (see Table 5.3 of the 
1541 manual): 

BYTE CONTENTS 

000-001 Next directory track and sector. A track of 0 

indicates last sector in use. These bytes only used for the 
first entry. 

002 The type of file $00=scratched or not in use. 

$80=DELeted (scratched unclosed) $81=SEQuential 
$82=PRograM $83=useR $84=RELative $1-4=unclosed 
003-004 Starting track and sector of file 
005-020 Name padded with shifted spaces 
023 Record size of relative file 

028-029 New track and sector for disk ops with replacement - @ 
030-031 Number of blocks file uses in low/high byte format 

Below is a typical dump of the first directory sector, track 18 sector 1, 
for two file entries: 


START CONTENTS 


ASCII 


00 

12 

04 

82 

11 

00 

44 

55 

4d 

08 

50 

2e 

4d 

49 

4b 

a0 

a0 

a0 

10 

a0 

a0 

a0 

a0 

a0 

00 

00 

00 

18 

00 

00 

00 

00 

00 

00 

0d 

00 

20 

00 

00 

82 

11 

03 

44 

55 

4d 

28 

50 

2e 

4d 

a0 

a0 

a0 

a0 

a0 

30 

a0 

a0 

a0 

a0 

a0 

00 

00 

00 

38 

00 

00 

00 

00 

00 

00 

01 

00 


It is worth noting that directory sectors do not follow sequentially. The 
same is true for file storage, as can be seen when using the disk utility. 

Just to round things off, here is a dump of a basic program which 
occupies less than one block. It is in fact the loader for the utility at the 
end of Chapter 9. 
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START CONTENTS ASCII 


00 

00 

4B 

01 

08 

24 

08 

0A 

00 


08 

41 

B2 

41 

AA 

31 

3A 

8B 

41 

A.A.1: .A 

10 

B2 

31 

A7 

93 

22 

55 

54 

49 

.1 .."UT1 

18 

4C 

49 

54 

59 

20 

44 

41 

54 

LITY DAT 

20 

41 

22 

2C 

38 

2C 

31 

00 

3C 

A",8,1 .< 

28 

08 

14 

00 

8B 

41 

B2 

32 

A7 

....A.2. 

30 

93 

22 

55 

54 

49 

4C 

49 

54 

."UTILIT 

38 

59 

22 

2C 

38 

2C 

31 

00 

47 

Y",8,1.G 

40 

08 

IE 

00 

9E 

33 

32 

37 

36 

....3276 

48 

38 

00 

00 

00 

A2 

00 

00 

00 

8. 


As it is less than one block, the linking track is zero, denoting the end. 
It is a straight copy of the ram and like the memory dump in Chapter 1 , 
we can pick out the link addresses, end of program, and so on. 

Disk utility 

This utility offers many of the housekeeping commands and provides a 
number of more interesting options. It is rather long as most of the 
subroutines are complete in themselves (to allow you to extract only 
those you want for your own programs). The listing has been left in 
lower case and when you are typing it in, it is easiest to put the 64 into 
that mode with the shift and logo keys. It makes extensive use of direct 
access programming so we suggest you use the information given 
above and the relevant sections of the 1541 manual to follow it. It has 
been run through the utility's coder command to produce the 
mnemonics. Most annotated characters are cursor moves, colours or 
simply capital letters. 

The usual options of new, validate, scratch, initialize, rename, copy 
(within a drive) and read disk error are all present. The directory option 
is unusual in that everything is input or displayed in hex notation. A 
much shorter way to get a directory is given in the backup utility at the 
end of this chapter. The option also displays the first track and sector 
of a file, and if it is a program, also its load address. The listing is 
further split up into directory sectors and will display even scRATCHed 
or DELETEd files if the disk has not been VAUDATEd. Two values are given 
for the blocks free - the usual value exclusive of erased files and 
another inclusive of erased files. An erased file simply has its associ¬ 
ated BAM set to 1 (not allocated). 

The trace option follows a file through displaying its associated 
tracks and sectors. It will also check to see if the file it is following is 
scratched. If this is the case, it will ask whether you wish to recover it. 
If your answer is 'yes', then as it traces it will also allocate each block. 
Providing that all the blocks found were free it has recovered the file. If 
an allocated block is found then the original area of the file has been 
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overwritten and recovery is not possible and you will be told. If the 
scratched file has been successfully traced, all that remains to be done 
is to use the mod/disp blocks option to change its 'file type' byte (third 
byte in its entry) from 0 back to $81 or $82. The revised directory block 
must be rewritten to complete the process. 

The mod/disp blocks option is similar to the demonstration disk's 
program 'display track and sector'. The main difference is that it also 
allows the block to be modified and rewritten to disk. When the block 
is written it is also allocated. The usual options to review again and get 
the next track and sector are available. The subroutine called at 1680 is 
a little unusual and merits some explanation. Earlier in the chapter 
under the heading 'Keyboard' it was mentioned that a file could be 
opened to it. This eliminates the '?' prompt and also releases the 
cursor. The cursor may then be moved to the appropriate line, hex 
values changed and on pressing return the revised values are pro¬ 
cessed and written to the disk buffer. The same 128 bytes are then 
redisplayed by reading from the buffer. At the end of a block the 
option to write the changes must be taken to change it on disk. It is 
also possible to recover files using this option by following a file 
through taking the next track and sector option (first two bytes) and 
always writing the changes. Unlike trace, it does not check to see if a 
file can be recovered. Files in which a read error occurs may also be 
reconstructed. This we discovered when the easy script appendices file 
of this book was corrupted. All we did was modify the next track and 
sector bytes of the preceding block to skip the corrupt block. The 
resulting file could be read with the loss of only 256 bytes (and was 
immediately saved on another disk). 

The append for program files is the same as that in Chapter 5 (where it 
is fully explained). The append for sequential files (and scratch) builds 
the command string (separated by commas) before actioning on return 
with no input. 

The final option is to modify the disk's header. This is done by simply 
reading bam, moving the buffer pointer and writing in the new values. 
It is worth noting that whenever a byte is read, the buffer pointer is 
moved forward one position. So in order to write to the same position 
at which the read started, the pointer must be set using a 'b-p' 
command. 

The utility is not foolproof, but with a little attention to detail, may be 
used to advantage. Our last comment before the listing is to point out 
that when you try to allocate an already allocated block error 65 no 
block occurs. This must be checked for and trapped as in mod/disp 
blocks. The locations of all the subroutines may be read from the IF 
statements in lines 210-340. 
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100 poke 53272,23:poke 53280,6:dim a*<10 
0),t*<5> 

110 for i=0 to 5:read t$(i):next i 
120 data de1,seq,prg,usr,re1,??? 

130 print"Cc1s][g>d]Cg>i][g>s][g>k] [g>u 
3Cg>t][g>i][g>U[g>i][g>t][g>y]“zprint"C 
cd][rev][g>n3Coff] new disk"tab<20>;"[re 
y3Cg>h3toff3 change header" 

140 print"[cdl[rev][g>v][off3 validate d 
isk";tab(20>;"Crev3 Cg>d3[off3 directory" 
150 print "rcd3[rev3[g>t3[off3 trace fil 
e";tab(20);”[rev3Cg>s3Coff3 scratch file 
<s>" 

160 print"[cd3[rev3[g>r3[off3 rename fil 
e";tab(20);"trev3[g>e3toff3 read disk er 
ror " 

170 print"Ccd3trev3[g>c3[off3 copy file" 
;tab(20);"[rev3tg>a3[off3 append files" 
180 print"Ccd3Crev3[g>b3[off3 backup fil 
e";tab<20);"[rev3Cg>m3toff 3 mod/disp bio 
cks" 

190 print n [cd3[rev3[g>i3[off3 initialize 
disk";tab<20>;"[rev 3[g>x3[off3 exit" 

200 gosub 2360 


210 

i f 

y%= "n" 

then 

gosub 

538:goto 

130 

220 

i f 

y%= "y" 

then 

gosub 

580:goto 

130 

230 

i f 

y%= "r" 

then 

gosub 

620:goto 

130 

240 

i f 

y%= "s" 

then 

gosub 

670:goto 

130 

250 

i f 

Y^~ "e" 

then 

gosub 

740:goto 

130 

260 

i f 

5 

ne 

ll 

6 

X 

then 

gosub 

360:goto 

130 

270 

i f 

Y%="c" 

then 

gosub 

840:goto 

130 

280 

i f 

yS="d” 

then 

gosub 

890:goto 

130 

290 

i f 

y*="h" 

then 

gosub 

1240:goto 

130 

300 

i f 

Y%= "x" 

then 

end 



310 

i f 

y^="m" 

then 

gosub 

1400:goto 

130 

320 

i f 

yS="i" 

then 

gosub 

1740:goto 

130 

330 

i f 

y*="t" 

then 

gosub 

1760:goto 

130 

340 

i f 

y$-= "b" 

then 

gosub 

2130:goto 

130 


350 goto 130 
360 rem append 

370 print"[cls3[g>a3[2g>p3[g>e3[g>n3[g>d 
3Ccd3“:print"[rev3[g>p3[off3 prg files[c 
d3":print"[cd3[rev3[g>s3[off3 seq files" 
380 gosub 2360:if y*<>"p" and y*<>"s" go 
to 520 

390 if y$="s" then gosub 770:return 
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400 rem prg -files 

410 print"[cdlappend prg files - sure":g 
osub 2360:if y*<>"y" goto 520 
420 i nput"Ccd]combined prg";f$ : input"[3s 
pclfirst prg";x1$:input"C2spc]second prg 
" ;x2$ 

430 open 3,8,3,"0:"+f$+",p,w":open 2,8,2 
,"0:"+xl*+",p,r” 

440 ge t#2, y% 

450 x*=y*:get#2,y*:if st<>0 goto 470 
460 gosub 2330:print#3,x$goto 450 
470 close 2:open 2,8,2,"0:"+x2$+",p,r" 
480 get#2,y*:get#2,y* 

490 get#2,x$:if st<>0 goto 510 

500 gosub 2330:print#3,x$goto 490 

510 close 2:print#3,chr$(0);:c1ose 3 

520 return 

530 rem new disk 

540 print"[cd3new disk - sure":gosub 236 
0:if y*<>"y" goto 570 

550 inpu t"[cd]name";f % :input"i .d.";y$:f$ 
= 1 ef tUXf*, 16) + " , " + 1 ef t*<y*,2) 

560 open 15,8,15,"n0:"+f$:c1ose 15 

570 return 

580 rem validate 

590 print"[cd]validate - sure":gosub 236 

0:if y% <>"y“ goto 610 

600 open 15,8,15,“v":c1ose 15 

610 return 

620 rem rename 

630 print"[cd]rename - sure":gosub 2360: 
if y %< >"y" goto 660 

640 input"tcd]old fi1e";f$:input"new fil 
e" ; y% :f$="r 0:" + y %+" = " + f % 

650 open 15,8,15,f %: c1ose 15 
660 return 

670 rem scratch file 

680 print"Ccd]scratch - sure*:gosub 2360 
:if y*<>“y" goto 730 

690 f^="":print"[cd]use * or ? for patte 
rn matching" 

700 print"hit return to deletetcd]" 

710 input "delete";y$:if y$<>“" then f*= 
f*+",-+y*:y*="-sgoto 710 

720 f*="s0:"+mid*<f$,2>:open 15,8,15,f*: 
c1ose 15 
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730 return 
740 rem error 

750 open 1 5,8,1 5: i npu t#l 5, x$ , f$, x 1$, x2$: 
c 1 ose 15:print“[cd][g>e][2g>r][g>oHg>r] 

: " ; x$, f$, x 1$, x2$ 

760 gosub 2360:return 
770 rem append seq -files 

780 print"[cd3append seq -files - sure" :g 
osub 2360:if y*<>"y M goto 830 
790 print"[cd]hit return to appendtcd]" 
800 f$="":input"[3spc3new";x$ 

810 input"append";y$:if y$<>"" then f$=f 
*+","+»0 : "+y*:y*="■:goto 810 
820 f$="c0 : ”+x*+"="+mi d*<f*,2> :open 15,8 
,15:print#15,f* 

830 close 15:return 
840 rem copy same disk 

850 print"tcd3copy - sure":gosub 2360:if 
y*<>"y" goto 880 

860 input"[cd3new"; f $:input"old"; y*:f♦=" 
c0 : " + f$+" = " + “0 : " + y* 

870 open 15,8,15,f$ 

380 close 15:return 
890 rem directory 

900 print"[cd3directory - sure":gosub 23 
60:if y*<>"y" goto 1230 

910 open 15,8,15:open 1,8,2,“#“:t=l8:s=0 
:f*="":bf=@:bu=0 

920 print#15,“ul";2;0;t;s;:print#15,"b-p 
";2;144:print"tels3“;tab<10);"[rev 3"; 

930 for i=l to 16:get#l,x$:gosub 2290:pr 
intx$;:next i: print","; 

940 print#l5,"b-p";2;162 

950 for i=l to 2:get#l,x$:gosub 2290:pri 
n tx$;:next i:print"[off3tblk3“:t=18:s=l 
960 print"*blk fi1e[13spc3 type *tk *st * 
add[1 blu 3" 

970 print#15,"ul";2;0;t;s:i =0 :x=s:gosub 
2200:print"[blk3trk 12";“ set ";x$;"[l b 
1 u3" 

980 get#l,x$:gosub 2330:t=asc(x$):get#l, 
x^:gosub 2330:s=asc<x$) 

990 i = i + l :print#*15, "b-p" ;2; < i -1>*32+2:ge 
t#l,x$:gosub 2330:x=asc(x$):y$="" 

1000 for j=0 to 5:if x=j then y*=t$(j) 
1010 if j=0 then x=x-l28 
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1020 next j:if y$="" then y$=t$<5) 

1030 get#l,x$rgosub 2330:x=asc(x$):gosub 
2200:t$=xi 

1040 get#l,x$:gosub 2330:x=asc<x$):gosub 
2200:s$=x$ 

1050 -for j = l to 1 6: ge t#l , x$: gosub 2290 : f 
$=-f$+x$:next j 
1060 if y$<>"prg" goto 1090 
1070 open 3,8,3,f$+",s,p”:get#3,xS:gosub 
2330 : x=asc<x$):gosub 2200:1$=x$ 

1080 get#3,x$:gosub 2330:x=asc(x$):gosub 
2200:]*=x*+l$:close3 
1090 print#15,"b-p";2;<i-1)*32+30 
1100 get#l,x$:gosub 2330:j=asc<x*> 

1110 get#l,x$:gosub 2330sk=asc(x$) 

1120 x=krgosub 2200:bf$=x$:x=j:gosub 220 
0 :bf*=bf*+x* 

1130 bu=bu+256*k+j:if y*<>"del" then bf= 
bf+256*k+j 

1140 printbf*;" M ;f*; M C2spc]";y*;"[2spc] 
”;t$;"[2spc3 " ;s$ ; " ■;1 *:bf*=“":f*="":1*= 

II II 

1150 get y*:if y$<>"" then gosub 2360 
1160 if i<8 goto 990 
1170 if t < > 0 goto 970 

1180 bf=664-bf:x=bf/256:gosub 2200:y$=x$ 
:x=bf-256:gosub 2200:y$=y$+x$ 

1190 print"[ye 13";y$;" blocks freell blu 
3 " 

1200 bu=664-bu:x=bu/256:gosub 2200:y$=x$ 
:x=bu-256:gosub 2200:y*=y*+x$ 

1210 print"£ ye 13”;y$;" blocks free inc d 
el filestl b1u 3" 

1220 gosub 2360:close 15:c1ose 1 
1230 return 

1240 rem change header 

1250 print"£cd3change header — sure":gos 
ub 2360:if y %< >"y M goto 1390 
1260 open 15,8,15:open 1,8,2,:t=18:s= 
0:bf=0:f*="" 

1270 print#15,"ul";2;0;t;s;:print#15,"b- 
p" ;2;144:print"£cd3current:£2spc3“ ; 

1280 for i=l to 16:get#l,x$:gosub 2290:p 
rintx$;:next i:print","; 

1290 print#15,"b-p";2;162 
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1300 -for i = 1 to 2:get#l ,x$:gosub 2290:pr 
intx*;:next i:print 

1310 input "[4spc ] name “ ; f *: f*=l ef t*( f *+ " C 
16g>spc 3",16) 

1320 i npu t" [ 4spc 3 i . d. " ;y*:y*= 1 ef t*<y*+"x 

x " 2 > 

1330 print#15,"b-p";2;144 

1340 -for i = 1 to 1 6 : pr i n t#l ,m i d*( f * , i , 1 > ; 

: nex t i 

1350 print#15,“b-p";2;162 
1360 print#15, M b-p";2;162 

1370 for i = 1 to 2:print#l,mid*(y*,i , 1>; : 
next i 

1380 print# 15 ,"u2";2;0;t;s:close 15:c1 os 
e 1 

1390 return 

1400 r em modify and display blocks 
1410 print“Ccd3modify and display blocks 
— sure" : gosub 2360 : i f y$0"y" goto 1670 
1420 open 15,8,15:open 1,8,2,"#"!**="" 
1430 input"Ecd3 tracktcr3*[2c13";t*:x*=t 
*:gosub 2250 : t=x : i-f x<0 or x>40 goto 143 
0 

1440 input"sectortcr3*[2cl3";s*:x*=s*:go 
sub 2250 : s=x : i f x<0 or x>20 goto 1430 
1450 print#15,"u1“;2;0;t;s;:print#15,"b- 

p";2;0 

1460 get#l,x*:gosub 2330:x=asc(x*>:tn=x: 
gosub 2200:tn$=x* 

1470 get#l,x*:gosub 2330:x=asc<x*>:sn=x: 
gosub 2200:sn*=x* 

1480 nt*="C3spc3[g>n3 Cg>e3 Cg>x3 C g> t 3:Cg> 
t3[g>r3Cg>a3[g>c3Ig>k3 "+tn*+" [g>s3[g>e 

3[g>c3Cg>t3Cg>o3[g>r3 "+sn* 

1490 c t*="Cg>c 3Eg>u3t2g>r3[g>e3[g>n3tg>t 
3:Cg>t3[g>r3[g>a3[g>c3[g>k3 "+t*+" tg>s3 

[g>e3tg>c3[g>t3[g>o3 [g>r3 "+s* 

1500 print"[cls3";c t*:prin tn t* 

1510 print#15,"b-p";2;0 

1520 for i=0 to 15:f*="":x=i*8:gosub 220 
0:printx*;" ";:for j=0 to 7 
1530 get#l,x*:y*=x*:gosub 2330:x=asc(x*) 
rgosub 2200:printx*;" 

1540 x*=y*:gosub 2290:f*=f*+x*:next j:pr 
in tf*:nex t i 

1550 gosub 1680: if y*=”y" goto 1500 
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1560 print"tclsJ";ct$:printnt$ 

1570 print#15,"b-p";2;128 

1580 for i=16 to 31:f*="":x=i*8:gosub 22 

00 :pr i n tx$;" ”;:for ,j=0 to 7 

1590 get#l,x$:y$=x$:gosub 2330:x=asc(x$> 

:gosub 2200:printx$; H “;: 

1600 x$=y$:gosub 2290 : f$=f$+x$ : nex t j:pr 
in tf$:next i 

1610 gosub 1680:if y$="y" goto 1560 
1620 print"reuiew again":gosub 2360:if y 
t=V goto 1500 

1630 print"write changes”:gosub 2360:if 
y$="y" then print#l5,"u2";2;0;t,s 
1640 if y*="y" then print#l5,"b-a“;0;t;s 
:gosub 2390 

1650 print” next t/s“ : gosub2360 : i f y*="y" 

then t=tn:s=sn:t$=tn$:s$=sn$:goto 1450 

1660 close l:close 15 

1670 return 

1680 rem any changes 

1690 print"any changes":gosub 2360:if y$ 
<>“y" goto 1730 

1700 open 9,0:input#9,a*:c1ose 9 

1710 x*=left*<a*,2):gosub 2250:print#l5, 

"b-p”;2,x 

1720 for i=0 to 7:x$=mid$<a$,4+i*3,2>:go 
sub 2250:print#l,chr$(x);:next i 
1730 return 

1740 rem intialize disk 

1750 open 15,8,15,"i0":c1ose 15:return 
1760 rem trace file 

1770 print"tcdltrace file - sure":gosub 
2360:if y% <>"y" goto 2120 
1780 input"Ccdlfi1e“;bf* 

1790 open 15,8,15:open 1,8,2,"#”:t=l8:s= 
1:f*="" 

1800 print#15,"ul”; 2; 0 ; t ; s:i=@:f*="" 

1810 get#l,x*:gosub 2330:t=asc<x*>:get#l 
, x$:gosub 2330:s=asc<x$) 

1820 i=i+1:print#15,”b-p";2;(i-1)*32+2:g 
e t#l,x*:gosub 2330:x=asc(x*>:y*="" 

1830 for j=0 to 5:if x=j then y$=t$(j) 

1840 if j—0 then x=x-128 

1850 next j:if y*="" then y*=t*<5> 

I860 ge t#l , x$ : gosub 2330:x=asc<x$):gosub 
2200:t$=x$ 
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1870 get#l,x$:gosub 2330:x=asc<x$>:gosub 
2200:s$=x$ 

1880 f$="“:for j = l to 1 6: ge tttl , x$: gosub 
2290 : f$=f$+x$ : nex t j 

1890 if 1 ef t*(f*, 1 en<bf*) >=bf* goto 1930 
1900 i-f i =8 and t>0 goto 1800 
1910 goto 1820 
1920 i-f t=@ goto 2120 

1930 pr i n t"[ c 1 s] [ rev ] trace ofCoff] ";bf$ 
;" -file type " ; y %: pr i n t: -f t$=y$ : no=0 
1940 i-f ft$="del“ then print" recover -f i 1 
e":gosub 2360 

1950 print#15,"b-p" ; 2; < i -1 >*32+3 

1960 get#l,x$:gosub 2330:t=asc(x$>:get#l 

,x$:gosub 2330:s=asc(x*> 

1970 x=t:gosub 2200:t$=x$:x=s:gosub 2200 
;s$=x$ 

1980 print"track ";t$;" sector ";s# 

1990 i-f y$<>"y" goto 2030 

2000 printttlS,"b-a" ;0;t;s: input#15,e: i-f 

e<>65 goto 2030 

2010 print“recovering not on as a suppos 
edly" 

2020 print"free block is al1 ocated.":no= 
1 

2030 print#15,"ul";2;0;t;s 

2040 get#l,:gosub 2330:t=asc<x$>:get#l 

,x$:gosub 2330:s=asc<x$) 

2050 i-f t=0 goto 2070 
2060 goto 1970 

2070 i-f ft$="del" and y$="y" and no=0 go 
to 2090 

2080 goto 2110 

2090 print"recovery ok remember to chang 
e " 

2100 pr i n t "d i rec tory track and -file type 

II 

2110 gosub 2360 

2120 close l:close 15:return 

2130 rem backup 

2140 print:print"backup file" 

2150 print:print"[g>t3o allow larger fil 
es to be backed up" 

2160 print"on both disk and cassette a s 
eparate" 
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2170 print"uti1ity has been provided.[3s 
pc][g>f]or " 

2180 pr i n t" smal 1 er -files code could be i 
ncluded here." 

2190 gosub 2360:return 
2200 rem dec-hex 

2210 x=x and 255:x1=int<x/16):x2=x and 1 
5 

2220 xl$=chr$(48+x1):i-f xl>9 then xl$=ch 
r$(55+x1> 

2230 x2*=chr*(48+x2> : i -f x2>9 then x2*=ch 
r*<55+x2> 

2240 x$=xl$+x2f:return 

2250 rem hex-dec 

2260 x$=right$<“00" + x$,2) 

2270 xl=asc < x^)-48:x2=asc(mid$(x$,2)>-48 
2280 x=l6#< xl + 7*(xl>9)>+x2+7*(x2>9):retu 
rn 

2290 rem convert to ascii 

2300 i-f x$=chrf(160) goto 2320 

2310 it x*<" H or x*>"z M then x*="." 

2320 return 

2330 rem eliminate null string 
2340 i-f x*="" then x*=chr*<0> 

2350 return 
2360 rem wait 

2370 get y*;if y*="" goto 2370 
2380 return 

2390 rem error on b-a check 

2400 i nput#l5,en$,em$,et$,es$: i -f en$<"20 

" or enS="65" then return 

2410 close 15:print:printen$,em$,et$,es$ 

:gosub 2360:run 

Many more options could be provided and some of the existing 
options could be made fully automatic. These are exercises for you to 
carry out. 


BACKUP 

We have produced this utility to allow selective backing-up of files 
between disk and tape, from disk to disk and from tape to tape. 
Commodore provide an excellent 1541 BACKUP program on the 
demonstration disk, but it only backs up whole disks. The following 
allows selective backing-up of single files, whether they be program or 
sequential. It could be modified to do more than one file when going 
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between disk and tape, providing that the details of each file were 
known in advance. We wrote the program to avoid the need to pro¬ 
duce a special program for sequential files and the use of an extended 
monitor to copy machine code, basic programs can, of course, be 
duplicated by a simple load and save sequence. 

The program is in two parts: the machine code and the basic driver 
which uses the machine code for program files. The following des¬ 
cribes the driver: 

LINE ACTION 

100 Set top of memory to $1800/6144 

110 Set source device and check whether valid 

120 Do same for destination device 

130 Contents of disk or tape 

150 Set prog or seq file, if not known use 130 

170- Co to appropriate subroutine for source, destination and file 
type 

Subroutines 

250- Seq file from disk to tape so read byte/write byte until status 
says end of file. 

Requires a file name. 

290- Seq tape to disk 

290 Read header and display info with sub 700 and if non-ASCII in 
name then offer chance to change name. 

310 Final check on name. 

330- Read and write bytes until status says end of file 
370- Seq tape to tape. Has a limited capacity. 

370 Check for non-ASCII and option to change name. 

410- Read in bytes until end of file or until ram filled eliminating 
ASC(0) on the way to avoid errors. 

450 Warning-only part of file read. 

480 Write to destination tape 

490 Pause for destination tape 

510- Seq disk to disk. Same principle as for tape above 
610 Pause for destination disk 
630 Simple wait for any key 
650 Print tape or disk in set up 

690 Contents of next file on tape and prompt to rewind 
700 Display tape buffer in full - highlighting any non-ASCII 
750 Get file name 
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760 Eliminate trailing spaces in file name 
800 Display directory of disk 
940- Prog file disk to disk. 

940 Get file name and set it up in cassette buffer 
950 Fill up rest of buffer with spaces 

960 Set length of name register - FNLEN and enter m/c to do a 
relocated load 

980 Delete file from destination disk 
990 Do relocated save 

1010- Prog disk to tape. Initial part as for disk to disk 
1040 Write header created 
1045 Write ram 

1060 Prog tape to tape 

1100 Prog tape to disk checking as before 

BASIC PROGRAM 

100 POKE 52,24:POKE 56,24:CLR 

110 PRINT"FCLS]BACKUP UTILITY":PRINT"CCD 

3 FROM T/D" ; : GOSUB <550 : F*=Y* 

120 PRINT"CCD3F2SPC3TO T/D";:GOSUB 650:T 
*=Y* 

130 PRINT" [CD3CONTENTS T/D" .-GOSUB 630: IF 
Y*=“D" THEN GOSUB 800:GOTO 130 
140 IF Y*="T" THEN GOSUB 690:GOTO 130 
150 PRINT"CCDJTYPE P/S";:GOSUB 630:IF Y* 

<>“P" AND Y*<>”S" GOTO 150 
160 FT*=Y*:PRINT " ";FT* 

170 IF F*="D" AND T*="T" AND FT*="S" THE 
N GOSUB 250:RUN 

180 IF F$=“T" AND T*="D" AND FT*="S" THE 
N GOSUB 290:RUN 

190 IF F*="D" AND T*="D" AND FT*="S" THE 
N GOSUB 510:RUN 

195 IF F*="T” AND T*="T" AND FT*="S" THE 
N GOSUB 370 .-RUN 

200 IF F*="D" AND T*="D" AND FT*="P" THE 
N GOSUB 940:RUN 

210 IF F*="D" AND T*="T" AND FT*="P" THE 
N GOSUB 1010:RUN 

220 IF F*="T" AND T*=“T" AND FT*="P" THE 
N GOSUB 1060:RUN 

230 IF F*="T" AND T*="D" AND FT*="P" THE 
N GOSUB 1100:RUN 
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240 RUN 

258 GOSUB 750:OPEN 2,8,2,N*+",S,R":OPEN 
1 ,1 ,1,N* 

260 GET#2,Y*:IF ST GOTO 280 

270 PRINT#1,Y$;:GOTO 260 

280 CLOSE 2:CLOSE 1:RETURN 

290 OPEN 1,1,0:GOSUB 700:IF E=1 THEN GOS 

UB 750:GOTO 310 

300 GOSUB 760 

310 PRINT"[CD]FILE NAME “;CHR$<34>;N*;CH 
R*<34>;" OK Y/N":GOSUB 630 
320 IF Y*="N" THEN GOSUB 750 
330 OPEN 3,8,3,"30:"+N*+”,S,U" 

340 GET#1,Y*:IF ST GOTO 360 

350 PRINT#3,Y$;:GOTO 340 

360 CLOSE 1:CLOSE 3:RETURN 

370 Y=6144:OPEN 1,1,0:GOSUB 700:IF E=1 T 

HEN GOSUB 750::GOTO 390 

380 GOSUB 760 

390 PRINT"[CD]FILE NAME ";CHR*(34);N*;CH 

R*<34);" OK Y/N":GOSUB 630 

400 IF Y*=“N" THEN GOSUB 750 

410 GET#1,Y*:IF ST GOTO 460 

420 IF Y$=“" THEN Y*=CHR*<0> 

430 POKE Y,ASC<Y$) 

440 IF Y<40959 THEN Y=Y+1:GOTO 410 

450 PRINT"[CD]FILE TOO BIG ONLY 34K COPI 

ED" 

460 CLOSE1 
470 GOSUB 490 

480 OPEN 1,1,1,N$:FOR 1=6144 TO Y:PRINT# 
1,CHR$< PEEK <I));:NEXT I:CLOSE 1:RETURN 
490 PRINT"[CD]DESTINATION TAPE Y":GOSUB 
630:IF Y*<>"Y" GOTO 490 
500 RETURN 

510 GOSUB 750:OPEN 2,8,2,N*+",S,R":Y=614 
4 

520 GET#2,Y*:IF ST GOTO 570 
530 IF Y$="" THEN Y$=CHR*<0) 

540 POKE Y,ASC(Y*> 

550 IF Y<40959 THEN Y=Y+l:GOTO 520 

560 PRINT"[CDIFILE TOO BIG ONLY 34K COPI 

ED" 

570 CL0SE2 
580 GOSUB 610 
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590 OPEN 3,8,3,"30:"+N*+",S,W":FOR 1=614 
4 TO Y:PRINT#3,CHR$ < PEEK( I > ) ; :NEXT I 
600 CLOSE 3:RETURN 

610 PRINT"CCD]DESTINATION DISK Y":GOSUB 
630: IF Y*0"Y" GOTO 610 
620 RETURN 

630 GET Y*:IF Y*="" GOTO 630 
640 RETURN 

650 GOSUB 630:IF Y*="T" THEN PRINT" TAPE 
":GOTO 680 

660 IF Y*="D" THEN PRINT" DISK":GOTO 680 
670 GOTO 650 
680 RETURN 

690 PRINT"CCDI":OPEN 1:CLOSE 1:GOSUB 700 
:PRINT"CCD]CREM]REWIND TAPECOFF]":RETURN 
700 PRINT"TYPE FILENAME";SPC<10BUFFER 
START":I=PEEK(828):E=0 
710 Y*=" PRG ":IF Y=4 THEN Y*=" SEQ " 

720 PRINTY$;"CREV]";:FOR 1=833 TO 1019:X 
=PEEK(I):IF X<32 OR X>95 THEN X=63:E=1 
730 PRINT CHR*<X);:IF 1=849 THEN PRINT"C 
OFF]<"; 

740 NEXT I:PRINT">CREM]ENDCOFF]":RETURN 
750 INPUT "C CD]FILENAME";N$:N*=LEFT* < N*, 
16):RETURN 

760 N*="":FOR 1=848 TO 833 STEP -1:X=PEE 
K< I ) 

770 IF X=32 AND N*=“" GOTO 790 
780 N*=CHR*KX)+N* 

790 NEXT I:RETURN 

800 PRINT"CCLS]";:OPEN 1,8,0,"$0":GET#1, 
Y*,Y* 

810 1=0 :GET#1 ,Y*,Y*,Y*,X*: IF Y*<>"" THEN 
I=ASC(Y*> 

820 IF X*<>"“ THEN 1=1+ASC<X*)*256 
830 PRINTRIGHT*<"C2SPC]"+STR*<I),3);" "; 

: 1=0 

840 GET#1,Y*:IF ST GOTO 930 

850 IF Y*=CHR*<34) THEN 1=1+1:PRINT CHR* 

(34);:GOTO 840 

860 IF 1=0 GOTO 840 

870 IF 1=1 THEN PRINT Y$;:GOTO 840 

880 IF 1=2 THEN PRINT TAB<22);:1=1+1 

890 IF 1=3 AND Y*=" " GOTO 840 

900 IF Y*<>"" THEN PRINT Y*;:GOTO 840 
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910 PRINT:GET Y*:IF Y*<>"" THEN GOSUB 63 
0 

920 IF ST=0 GOTO 810 

930 PRINT "BLOCKS FREE":CLOSE 1:GOSUB 63 
0:RETURN 

940 GOSUB 750:FOR 1=1 TO LEN(N*):POKE 83 

2+1,ASC < MID$(N$,1,1)):NEXT I 

950 FOR I=833+LEN<N*> TO 1019:POKE 1,32: 

NEXT I 

960 POKE 183,LEN(N$):SYS 49244 

970 PRINT" CCDH REV3 FILE WILL BE DELETED! 

OFF]":GOSUB 610 

980 OPEN 15,8,15,"S0:"+N*:CLOSE 15 
990 POKE 133,LEN(N$>:SYS 49343 
1000 RETURN 

1010 GOSUB 750:FOR 1=1 TO LEN<N*):POKE 8 
32+1,ASC(MID*(N*,I,1)):NEXT I 
1020 FOR I=833+LEN<N*) TO 1019:POKE 1,32 
:NEXT I 

1030 POKE 183,LEN<N$):SYS 49244 

1040 SYS 49203 

1045 SYS 49206 

1050 RETURN 

1060 SYS 49152 

1070 GOSUB 490 

1080 SYS 49203 

1085 SYS 49206 

1090 RETURN 

1100 SYS 49152 

1110 GOSUB 700:IF E=1 THEN GOSUB 750:GOT 
0 1130 

1120 GOSUB 760 

1130 PRINT"[CD]FILE NAME ";CHR*<34);N*;C 

HR*<34>;" OK Y/N":GOSUB 630 

1140 IF Y*="N" THEN GOSUB 750 

1150 PRINT"[CD][REV]FILE WILL BE DELETED 

[OFF]":GOSUB 610 

1160 OPEN 15,8,15,"S0:"+N* 

1170 POKE 183,LEN<N$):SYS 49343 
1180 RETURN 

The following is the basic loader for the machine code and must be 
loaded and run before using the above program. 
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1 DATA 32, 44, 247, 

, 169, 0, 133 

173, 

60, 3, 

133 

, 255 

2 DATA 193, 169, 24, 
63, 3, 237 

133, 

194, 

56, 

173, 

3 DATA 61, 3, 170, 1 
3, 168 

73, 64, 3, 

237, 

62, 

4 DATA 24, 138, 101, 
101, 194, 133 

193, 

133, 

174, 

152, 

5 DATA 175, 32, 162, 
60, 3, 96 

245, 

165, 

255, 

141 , 

6 DATA 32, 183, 247, 
69, 24, 133 

169, 

0, 133, 193, 1 

7 DATA 194, 56, 173, 
170, 173 

63, 

3, 237 

, 61 

> 3 > 

8 DATA 64, 3, 237, 62, 3, 
101, 193 

168, 

24, 

138, 

9 DATA 133, 174, 152 
, 32, 124, 246 

, 101 

, 194, 

133 

, 175 

10 DATA 96, 169, 96, 
41, 60, 3 

133, 

185, 

169, 

1 , 1 

11 DATA 133, 184, 169, 8, 

133, 

136, 

169, 


8, 133, 195 


12 DATA 133, 147, 

169, 

65, 

133, 

187, 169 

, 3, 133, 188 

13 DATA 169, 24, 

133, 

196, 

164, 

183, 32, 

175, 245, 32 

14 DATA 213, 243, 

165, 

186, 

32, 

9, 237, 


165, 185, 32 


15 DATA 199, 237, 32, 19, 238, 141, 61, 
3, 32, 19 

i Z r\ATA OOO < 4 1 / O O OO OOO Oyl ,1 


16 DATA 238, 

141, 62, 3, 

32, 

232, 244, 1 

65, 174, 141 
17 DATA 63, 

3, 56, 165, 

175, 

233, 24, 14 

1, 64, 3 

18 DATA 24, 

173, 61, 3, 

109, 

63, 3, 141, 

63, 3 

19 DATA 173, 

62, 3, 109, 

64, 

3, 141, 64, 


3, 96 


20 DATA 169, 97, 133, 185, 169, 1, 133, 
184, 169, 8 


21 DATA 

133, 186, 

169, 

65, 

133, 

187, 

169 

, 3, 133 

, 188 






22 DATA 

165, 185, 

164, 

183, 

32, 

213, 

243 


, 32, 143, 246 

23 DATA 165, 186, 32, 12, 237, 165, 185, 
32, 185, 237 
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24 DATA 169, 0, 133, 172, 169, 24, 133, 
173, 56, 173 

25 DATA 63, 3, 237, 61, 3, 133, 174, 173 
, 64, 3 

26 DATA 237, 62, 3, 133, 175, 24, 169, 2 
4, 101, 175 

27 DATA 133, 175, 173, 61, 3, 32, 221, 2 
37, 173, 62 

23 DATA 3, 160, 0, 32, 33, 246, 96, 255, 
255, 0 

29 FOR 1=49152 TO 49432:READ AsPOKE I,A: 


Once this has been run it could be saved as its machine code for later 
ease of loading. A detailed description of the machine code follows. 

MACHINE CODE 

The machine code is called by the driver as required. It consists of four 
parts: 

i) Read any header and do relocated load 

ii) Write to tape current header and write relocated code 

iii) Load from disk retaining original details but relocate 

iv) Save to disk relocated code with original details 

Chapter 5 of the Programmer's Reference Guide , 'The KERNAL', dis¬ 
cusses the use of load and save in detail. The entry points given are for 
complete loads and saves (it is possible to do a relocated load, but not 
a relocated save using these). Unfortunately, as we are using an all¬ 
purpose basic driver, these entry points may overwrite it. To overcome 
this problem, every operation is carried out in two stages. The first is to 
read or write the file's details which are always stored in or taken from 
the cassette buffer. This avoids having to do too much moving of 
information. The second is to perform a relocated load or save with the 
correct amount of code going to or being taken from $1800 on. 

To do this we must enter the load and save routines at much later 
points with the parameters already set. It would consume too much 
space to describe these in detail, so we leave it up to you to follow 
them through. The only tricks are to prevent a forced load to its 
original address with a tape marker of 3 and to prevent a header being 
written with a marker of 5 (when an end of tape has been written - see 
Tape Headers). 
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TAPE 


Read 

any tape 

h e ade r 

withou 

C000 

202CF7 

JSR 

$F72C 

C003 

AD3C03 

LDA 

$033C 

C006 

85FF 

STA 

$FF 

C008 

A900 

LDA 

#$00 

C00A 

85C1 

STA 

$C1 

C00C 

A918 

LDA 

#$18 

C00E 

85C2 

STA 

$C2 

C010 

38 

SEC 


C011 

AD3F03 

LDA 

$033F 

C014 

ED3D03 

SBC 

$033D 

C017 

AA 

TAX 


C018 

AD4003 

LDA 

$0340 

C01B 

ED3E03 

SBC 

$033E 

C01E 

A8 

TAY 


C01F 

18 

CLC 


C020 

8A 

TXA 


C021 

65C1 

ADC 

$C1 

C023 

85AE 

STA 

$AE 

C025 

98 

TYA 


C026 

65C2 

ADC 

$C2 

C028 

85AF 

STA 

$AF 

Load 

from $1800 on 


C02A 

20A2F5 

JSR 

$F5A2 

C02D 

A5FF 

LDA 

$FF 

C02F 

8D3C03 

STA 

$033C 

C032 

60 

RTS 


Write 

to tape 

i n two 

parts 

the code from 

$1800 

on 

C033 

20B7F7 

JSR 

$F7B7 

C036 

A900 

LDA 

#$00 

C038 

8501 

STA 

$C1 

C03A 

A918 

LDA 

#$18 

C03C 

85C2 

STA 

$C2 

C03E 

38 

SEC 


C03F 

AD3F03 

LDA 

$033F 

C042 

ED3D03 

SBC 

$033D 

C045 

AA 

TAX 


C046 

AD4003 

LDA 

$0340 

C049 

ED3E03 

SBC 

$033E 

C04C 

A8 

TAY 


C04D 

18 

CLC 


C04E 

8A 

TXA 


C04F 

6501 

ADC 

$C1 


loading 

read any header 
get sec add 
and store -for 1 ater 
set start o-f load 
to $1800 by setting 
STAL 

subtract MSBs 
o-f start and end 
o-f original load 
put result in X 
do same for LSBs 
putting answer in Y 


find overal1 length 

and add to STAL 
to give the new 
end i.e. $1800 
pi us result 


do the relocated load 
restore the sec add 
in case end of tape 5 
load complete 

the correct header and then 

write header in orig form 
reset STAL as it 
has been changed by 
writing the header 

recalc the relocated end 
MSB 


LSB 


set up EAL 
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C051 

85AE 

STA 

$AE 

C053 

98 

TYA 


C054 

65C2 

ADC 

$C2 

C856 

85AF 

STA 

$AF 

Save 

RAM -for reloading 

C058 

207CF6 

JSR 

$F67C 

C05B 

60 

RTS 


DISK 




Load 

from disk 

relocated t< 

C85C 

A960 

LDA 

#$68 

C85E 

85B9 

STA 

$B9 

C068 

A901 

LDA 

#$01 

C862 

8D3C03 

STA 

$033C 

C065 

85B8 

STA 

$B8 

C867 

A908 

LDA 

#$08 

C069 

85BA 

STA 

$BA 

C06B 

A900 

LDA 

#$00 

C06D 

85C3 

STA 

$C3 

C06F 

8593 

STA 

$93 

C071 

A941 

LDA 

#$41 

to f i 

1e name 



C073 

85BB 

STA 

$BB 

C075 

A903 

LDA 

#$03 

C077 

85BC 

STA 

$BC 

C079 

A918 

LDA 

#$18 

C87B 

85C4 

STA 

$C4 

C07D 

A4B7 

LDY 

$B7 

C07F 

20AFF5 

JSR 

$F5AF 

C082 

20D5F3 

JSR 

$F3D5 

C085 

A5BA 

LDA 

$BA 

C087 

2809ED 

JSR 

$ED09 

C08A 

A5B9 

LDA 

$B9 

C08C 

20C7ED 

JSR 

$EDC7 

C08F 

2013EE 

JSR 

$EE13 

C092 

8D3D03 

STA 

$033D 

C'095 

2013EE 

JSR 

$EE13 

C098 

8D3E03 

STA 

$033E 

C89B 

28E8F4 

JSR 

$F4E8 

C09E 

A5AE 

LDA 

$AE 

C0A0 

8D3F03 

STA 

$033F 

C0A3 

38 

SEC 


C0A4 

A5AF 

LDA 

$AF 

C0A6 

E918 

SBC 

#$18 

C0A8 

8D4003 

STA 

$0340 


save RAM 
complete 


$1800 

set sec add 

put type 1 in tape buffer 

make log file 1 
make device 8 
and put in FA 


A=8 for load 

set pointer to file name 

in FNADR to TBUFFR + 5 


MEMUSS set to $1808 
for relocated load 
read len name set in BASIC 
print SEARCHING 

print LOADING _ 

get current device 

send talk 

get sec add 

send talk sec add 

receive from serial 

and store LSB in TBUFFR 

do same for MSB of start 

do relocated load 
get end LSB 
put in TBUFFR 
subtract relocated start 
and end 

and put in appropriate 
locations of TBUFFR 
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C0AB 

18 

CLC 



C0AC 

AD3D03 

LDA 

$833D 

leaving a header 

C0AF 

6D3F03 

ADC 

$033F 

suitable -for 

C0B2 

8D3F03 

STA 

$033F 

a tape write 

C0B5 

AD3E03 

LDA 

$033E 


C0B8 

6D4003 

ADC 

$0340 


C0BB 

8D4003 

STA 

$0340 


C0BE 

60 

RTS 


back to BASIC 

Save 

relocated 

code 

to reload at correct address 

C0BF 

A961 

LDA 

#$61 

set parameters 

C0C1 

85B9 

STA 

$B9 


C0C3 

A901 

LDA 

#$01 


C0C5 

85B8 

STA 

$B8 


C0C7 

A908 

LDA 

#$08 


C0C9 

85BA 

STA 

$BA 


C0CB 

A941 

LDA 

#$41 


C0CD 

85BB 

STA 

$BB 


C0CF 

A903 

LDA 

#$03 


C0D1 

85BC 

STA 

$BC 


C0D3 

A5B9 

LDA 

$B9 


C0D5 

A4B7 

LDY 

$B7 


C0D7 

20D5F3 

JSR 

$F3D5 

send sec add 

C0DA 

208FF6 

JSR 

$F68F 

print SAVING 

C0DD 

A 5 BA 

LDA 

$BA 

send 1isten 

C0DF 

200CED 

JSR 

$ED0C 

device 8 

C0E2 

A5B9 

LDA 

$B9 

send 1isten 

C0E4 

20B9ED 

JSR 

$EDB9 

sec add 

C0E7 

A900 

LDA 

#$00 

set up SAL 

C0E9 

85AC 

STA 

$AC 

with *1800 

C0EB 

A918 

LDA 

#$18 


C0ED 

85AD 

STA 

$AD 


C0EF 

38 

SEC 



C0F0 

AD3F03 

LDA 

$033F 

calculate prog length 

C0F3 

ED3D03 

SBC 

$033D 

and put 

C0F6 

85AE 

STA 

$AE 

in EAL 

C0F8 

AD4003 

LDA 

$0340 


C0FB 

ED3E03 

SBC 

$033E 


C0FE 

85AF 

STA 

$AF 


Cl 00 

18 

CLC 



C101 

A918 

LDA 

#$18 

add *1800 to 

Cl 03 

65AF 

ADC 

$AF 

give relocated 

Cl 05 

85AF 

STA 

$AF 

end 

Cl 07 

AD3D03 

LDA 

$033D 


C10A 

20DDED 

JSR 

$EDDD 

send serial deferred 

C10D 

AD3E03 

LDA 

$833E 

send actual start in A and Y 
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cue 

A080 

LDY 

#$00 



Cl 12 

2021F6 

JSR 

$F621 

save 

RAM to reload 

Cl 15 

69 

RTS 


back 

to BASIC 


The utility is only intended for your own files. It will not as it stands 
backup relative files. 

As a point of interest, Supersoft's zoom monitor offers not only the 
option to perform relocated loads and saves, but to save in a form 
suitable for reloading on a pet, which eliminates an ID of 3 not used on 
the pet. 




3 A token approach 

tO BASIC 


Introduction 

In this chapter we deal with the five main routines basic uses in 
interpreting your programs or commands. One of these, chrget, picks 
up single bytes from the program and is called by the majority of 
routines in your 64. The other four routines covered are concerned 
with keywords - converting from ASCII to tokens, the reverse process 
(usTing), and directing them to their respective routines. 

Other than using sys commands a knowledge of these routines is 
essential if you wish to extend existing commands or add further ones. 
Those of you owning a disk drive will be familiar with the program DOS 
5.1 and may know that this modifies chrget to trigger its commands. 

CHARGET 

basic gets its information from the input or program lines through a 
routine called chrget (CHaracterR GET). A copy of this routine is held 
in the kernal operating system and is copied into zero page on power- 
up. Each time basic wants a character it calls this routine. 

The routine is held at locations $0073-$008A (kernal is $E3A2-$E3B9) 
and is as follows: 


$0073 

E 6 

7A 

INC 

$7A 

$9075 

D0 

02 

BNE 

$0079 

$0077 

E 6 

7B 

INC 

$7B 

$0079 

AD 

00 02 

LDA 

$2000 

$007C 

C9 

3A 

CMP 

*$3A 

$007E 

B0 

0A 

BCS 

$008A 

$0080 

C? 

20 

CMP 

#$20 

$0082 

F0 

EF 

BEQ 

$0073 

$0084 

38 


SEC 


$0085 

E9 

30 

SBC 

#$30 

$0087 

38 


SEC 


$0088 

E9 

D0 

SBC 

#$D0 

$008A 

60 


RTS 



Bytes 0073-0077 

Every time the chrget routine is called it increases, by one, the location 
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from where it gets its information. After it increments the lsb, in 
location 007A, it checks whether the page has been crossed, that is, 
from $FF to $00. Only if it has will the msb be increased. 

Bytes 0079-007B 

Ftere it takes the information from store and puts it into the accumula¬ 
tor. The store location is present before the initial entry to the routine. 
It is always set one byte less due to initial increment. If you were going 
to use the routine yourself, it would be these bytes you would change, 
as we shall see later. 

Bytes 007C-007F 

Ftere it checks to see if the character is a numeral. It is testing to see if it 
is greater than ASCII numeral 9 ($39). If so then the routine is left via 
$008A with the carry set. 

Bytes 0080-0083 

Ftere is a straightforward test to see if a space was picked up; if so the 
routine is carried out again, chrget cannot be left on encountering a 
space. 

Bytes 0084-0089 

These successively subtract two numbers from the original byte and 
end up with the same number. You may say that is senseless but it will 
set two flags in the status register that help us later. These are the carry 
flag and the zero flag. 

The carry flag. If this is clear on exit the byte will be a numeral in 
ASCII form. If it is set we have something else. 

When subtracting two numbers in machine code the carry flag must 
always be set first. If the number we are subtracting from is the larger 
then the carry will remain set. On the other hand, if the number we are 
subtracting is the larger the carry will clear. 

In this case we have already eliminated any byte that has a higher 
ASCII value than the numeral 9, in bytes 007E and 007F. It now subtracts 
$30 (ASCII for digit zero) from the accumulator in preparation for 
setting the final flags which can be used for testing for numbers. The 
carry flag at this point does not matter as it is set again anyway. Bytes 
with ASCII values lower than numerals now range between $D0 and 
$FF. 

With the next subtraction the original value is restored. The carry 
flag will now be set or unset as basic requires. As numerals are the only 
ones less than $D0 (the last figure subtracted) they will be the only 
ones to clear the carry flag. 

The zero flag. This could be set in two instances. First, in bytes 007E 
and 007F where we tested our byte against $3A, the ASCII value for a 
colon. If it was a colon then the zero flag would have been set as it was 
equal (the carry would also have been set). Secondly, the flag would be 
set after the second subtraction if, and only if, the original byte was 
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zero (not ASCII digit zero). In that instance after the first subtraction 
the accumulator would hold $D0 and subtracting the same value would 
set our zero flag. 

A colon in a basic line signifies an end of statement and a zero, the 
end of a line, and hence an end of statement. Therefore, by testing the 
zero flag, we can quickly tell if we have reached the end of that 
particular instruction. 

CHRGOT 

Keyword routines are entered immediately after a call to chrget. Before 
using that byte it may require the accumulator for something else. To 
recover the chrget byte we can use the chrgot routine. This is a 
shortened version of chrget. If, instead of entering the routine at $0073, 
we enter at $0079, we miss out the instructions which update the pointer 
and get the original byte again. 

Wedges 

If we want to patch in our own machine code routines to work along¬ 
side basic, one way to do this is to insert a wedge. Simply, this is a 
routine which diverts chrget to check whether it is one of our addi¬ 
tions. From this a decision can be made whether to revert to the 
normal chrget flow or to a routine of our own. 

Let us say that we put in some routines all to be actioned on the 
character For instance, we could have a renumber routine and a 
delete routine. The command for renumber might be («R'and delete, 
'CaD' and could place a wedge at $ 0000 . 

The first thing we have to do is alter the chrget routine. We want to 
change it after it has collected a byte but before it starts checking and 
manipulating it. The alteration would therefore be at $0070 with a imp to 
our coding. The routine starts with six bytes of data with our changes 
and the original bytes. (The latter is for restoring chrget if you require 
so to do later). We can load them by using the load with the x register. 
Our first instructions will look like this: 


C000 

40 

11 

00 

C003 

C? 

3A 


C005 

B0 



0006 

A2 

02 


C008 

BD 

00 

00 

C00B 

95 

70 


C00D 

CA 



C00E 

10 

F8 


0010 

60 



C011 

Our 

coding 


JMP *C011 
CMP #$3A 
BCS 

LDX #$02 
LDA $C000,X 
STA $7C,X 
DEX 

BPL $C008 
RTS 

i 11 start here 


This is the routine to initialize our wedge and is called immediately 
after loading the program by using sys 49158 ($C006). This loads a byte x 
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places from $C 000 and stores it x places from $zc. We decrease the 
counter x and the branch to collect the next byte will work until we 
decrement it below zero, that is, no longer a positive number. If the 
branch fails, we go back to basic through the rts. 

The beginning of the chrget now looks like this: 

0073 INC $7A 
0075 BNE $007? 

0077 INC $7B 

0079 LDA $0200 (this number varies) 

007C JMP $C011 


Now each time chrget is used it will go to our routine. As all our 
commands would be triggered with the first thing we would do is 
to check to see if it is present: 

C011 C9 40 CMP #$40 

C013 F0 03 BEQ $C018 

If it is, we can branch to do further checks, and if not, we continue with 
the next code. Here we will have to revert to the normal course of 
events. We have two options which we can take. First, we include the 
bytes of chrget we changed into our program - we do not want to 
change chrget itself as we want it to use again - and jump back to 
chrget at $0082. Secondly, we can use the chrget routine in the kernal 
rom, jumping in at $E3AB, and basic will continue as if nothing has 
happened. 

The first method would be like this: 

C015 4C AB E3 JMP $E3AB 

And the second like this (of course, the routine address will change 
from $C0i8 to scoid): 


C013 

F0 

07 

BEQ 

$C01D 

C015 

C? 

3A 

CMP 

#$3A 

C01? 

60 

03 

BCS 

*C01C 

C01? 

4C 

80 00 

JMP 

$0080 

C01C 

60 


RTS 



We now want to find out if it is one of our routines. This we do by 
checking the next character without updating the chrget pointer (in 
case it isn't). The code would look like this: 


C018 

08 

PHP 

C019 

48 

PHA 

C01A 

98 

TYA 

00 IB 

48 

PHA 
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C01C 

8A 



TXA 


C81D 

48 



PHA 


C01E 

A 6 

7A 


LDX 

$7A 

C020 

E8 



I NX 


C021 

BD 

00 

02 

LDA 

$0200,X 

C024 

C9 

52 


CMP 

#$52 

C026 

F0 

?? 


BEQ 

- TO RENUMBER ROUTINE 

C028 

C9 

44 


CMP 

#$44 

C02A 

F0 

?? 


BEQ 

- TO DELETE ROUTINE 

C02C 

68 



PLA 


C02D 

AA 



TAX 


C02E 

68 



PLA 


C02F 

A8 



TAY 


C030 

68 



PLA 


C031 

28 



PLP 


C032 

4C 

AB 

E3 

JMP 

$E3AB 


Bytes C018-C01D 

Here we are preserving our registers, including the status register, on 
the stack in case it is not destined for our own routines. 

Bytes C01E-C023 

Location $7A has the lsb of the pointer used by chrget and this is one 
less than the next character we want. So if we load it into the x register 
and increase it by one, we will have the position of the next byte. We 
can now load the byte using x as a pointer. 

Bytes $C024—$C2B 

A check is made to see if it is the letter r, signifying the renumber 
routine. If not we then check for the letter d and if so go to delete. 

Bytes $C2C—$C034 

It not, we restore our registers from the stack (in the reverse order we 
put them on). Then we continue the kernal routine as before. 

One last point is that in the routines, such as renumber or whatever, it 
would be advisable to call a subroutine to remove the bytes from the 
stack (placed there in sceis to $ceiD). We do not require them, but as 
your routines are called the stack will become fuller and fuller, result¬ 
ing in an 'OUT OF MEMORY' error. 


Keywords 

A more professional approach to adding routines than altering chrget 
is the use of Keywords. This approach holds with the idea behind the 
basic language that actions can be performed by using words which are 
indicative of the desired action. 

Keywords can be divided into two types: commands and functions. 
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72 

Functions get information, for example, peek returns the contents of a 
location, and will always supplement a command keyword. For 
example, we use print peek(xx) but never peek(xx)print. 

On the 64 it is possible to incorporate new routines actioned by 
keywords as they go to the relative routines through vectors held in 
ram. As the vectors are in ram we can change them to go to routines of 
our own. 

The other items we will have to add are three tables of data. One will 
have the new keywords in ASCII code. This will be used when LiSTing 
and tokenizing. The end of a word is indicated by adding $80 (128) to its 
last letter. To signify the end of the table, a zero is used. If we had a 
table of two keywords, say end and not, it would look like this: 

45 4E C4 4E 4F D4 00 

The other two tables will have the addresses of our routines, one for 
command keywords and one for functions. These will hold the address 
of each routine less 1. The reason for this is that we will put them on 
the stack for an rts instruction. The program counter will add 1 when it 
takes them from the stack, thus getting the correct address for the 
routine. The table will have two bytes for each routine, the lsb and then 
the msb. For example, if we had a routine at $C4DF, on the table it will 
look like this: de C4. 

There are four vectors we will have to change (three if not adding 
functions). 

ADD OF VECTOR ADD OF ROM DESCRIPTION 

$0304/5 $A57C Tokenize basic 

$0306/7 $A71 A Print Tokens(LiST) 

$0308/9 $A7E4 Token Dispatch - Command words 

$030A/B $AE86 Token Dispatch - Function words 

Tokenize basic Text 

The object of this subroutine is to take an input line, check it for 
keywords, tokenize them and condense the line. It does this by taking 
every byte from the input buffer, not using chrget, and then checking 
through the keyword table for a match. If the letters do not make a 
keyword, it stores them as variables, meaning that variables cannot 
have keywords in them. 

There are two ways we could approach the problem of incorporating 
our own keywords and tokens. First, we could copy the basic from rom 
into ram, and alter the tokenize routine within basic so that if it cannot 
find a match it jumps to a routine to check through our table of 
keywords. This would mean we would not have to change the vector 
but would lose the ram area under the basic rom which is useful for 
storing hires screens, data tables, and so on. The second way would be 
to change the vector to a routine of our own. Here we have a copy of 
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the rom routine altered slightly to be able to search our table as well. 
We would only use the rom routine when we finished tokenizing a 
whole line. 

We shall describe the second method, which we think is the better 
in the long run. A description follows the code. 


10 


LDX 

$7A 

28 


LDY 

#$04 

30 


STY 

$0F 

40 

ANOTHER 

LDA 

$0200,X 

50 


BPL 

SPACE 

60 


CMP 

#$FF 

70 


BEQ 

STORE 

80 


I NX 


90 


BNE 

ANOTHER 

100 

SPACE 

CMP 

#$29 

110 


BNE 

STORE 

120 


STA 

$08 

130 


CMP 

#$22 

140 


BEQ 

QUOTE 

150 


BIT 

$0F 

160 


BUS 

STORE 

170 


CMP 

#$3F 

180 


BNE 

NUMBER 

190 


LDA 

#$99 

200 


BNE 

STORE 

210 

NUMBER 

CMP 

#$3@ 

220 


BCC 

CONT 

230 


CMP 

#$3C 

240 


BCC 

STORE 

250 

CONT 

STY 

$71 

260 


LDY 

#$00 

270 


STY 

$0B 

280 


DEY 


290 


STX 

$7A 

300 


DEX 


310 

NEXT LETTER 

I NY 


320 


I NX 


330 

CONT 1 

LDA 

$0200,X 

340 


SEC 


350 


SBC 

$A09E,Y 

360 


BEQ 

NEXT LETTER 

370 


CMP 

#$80 

390 


BNE 

NEXT WORD 

400 

STORE A 

ORA 

$0B 

410 

FOUND 

LDY 

$71 
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889 

LDA 

*START OF OUR WORD TABLE,X 

898 

BNE 

NEXT B 

900 

LDA 

*0200,X 

910 

BPL 

FOUND 

920 END 

JMP 

*A609 


LINES 10-30: Initialization. Location $ 7 A will have a value the same as 
the position within the input buffer. In immediate mode this will be 0, 
the start of the buffer. If inputting a program line, it would be after the 
line number, which has already been taken care of. Now x will be our 
pointer to the original contents of the buffer and y will be the pointer 
to our new buffer set up. y is stored in $ 0 F just to initialize that location. 
The value does not matter as long as it was not over $ 3 F, as we shall see. 

LINES 40-50: We load in a byte and check to see if it is under $80 (128). If 
it is, we branch off to line 100. 

LINES 60-90: Values of $80 and over arrive here and we check to see if it 
is Pi' ($FF). If it is, we branch further into the routine to store it. If not, 
we branch back to get another byte. This means we cannot use the first 
character of a keyword as a shifted letter because it would be greater 
than $80. 

LINES 100-140: If a space is found we branch off to store it, otherwise 
we store the accumulator in a register, in case the following check 
succeeds, for comparison later. Now we check to see if the byte is a 
quote. Items between quotes do not require tokenizing and therefore 
we branch and continually store them until we come across another 
quote or the end of the line. 

LINES 150-160: Here we are checking to see if location $0F has bit 6 set 
or not. Amongst other things, the bit instruction takes bit 6 of $0F and 
places it in bit 6 of the status register, the overflow register. This bit in 
$ 0 F will only be set in this routine if we tokenize data later in the 
routine. It means that after data all characters will be stored and do not 
go through the keyword table. Bit 6 can be unset by a colon if outside 
quotes and for this reason colons have to be in quotes within data 
statements. A colon outside quotes will mean that information after is 
tokenized. basic instructions can be placed at the end of a data line and 
will be actioned as the line is encountered, basic differentiates 
between data and rem. On rem it will go to the next line whereas with 
data it will search through it for another basic instruction. 

LINES 170-200: The •v is the shortened version of the keyword print. It 
is the only keyword which can be shortened to a single character. 
These lines check for the question mark and if found place the token 
for print, $ 99 , in the accumulator and go to store it. 

LINES 210-240: Here we find out if the byte is a numeral, colon or 



76 A token approach to basic 


semicolon. If it is off we go to store it, if not then we continue the 
routine. 

LINES 250-300: We now set up for the search through the table of 
keywords. We store our y register, which, if you remember, is the 
pointer to the 'new look' buffer. Location %m will be our counter to 
the number of keywords we encounter; it will not hold the token value 
but helps determine it. We store x in $ 7 A. This is part of chrget, but we 
are only using it as a store. We decrease both x and y as the first part of 
the next section will increment them. 

LINES 310-390: This section of the routine explains why on the Com¬ 
modore 64 we can use shortened keywords using shifted letters. There 
are two things to remember here. First, the last letter of the keyword in 
the table is the value of the letter plus $80 028) which when loaded will 
set the negative flag. Secondly, the value of a shifted letter (not logo 
shift) is also the value of the letter plus $80. 

Back in the routine we increase the registers and load in our byte 
again; it will later load the next byte. We set the carry for subtraction 
and subtract the value of a letter, from the keyword table, from our 
byte. If we are left with zero then we have a match and we go back to 
get the next letter from the buffer. If it fails, we check to see if we have 
the value $80 left. This would indicate we have a match by either the 
input letter being the shifted letter or we have reached the end of the 
keyword in the table and have also matched. Failing this second check, 
it branches off to find the end of that word so we can check the next for 
a match. 

As the second letter can be shifted to give our match this explains 
not only shortened keywords, but also why some require at least three. 
As an example, take the keywords clr and close, clr comes before 
close in the table so that c and shift l will match with the former before 
it gets to close, which will therefore need two standard letters before a 
shifted letter. We can also explain why there is no shortened version 
for input, input# comes before input and so any shortened version will 
always match with input#. 

LINES 400-460: Back to the routine now. We have in the accumulator 
the value $80 and have found a match in the table. Here we perform the 
logical or of the accumulator and location $0B. Later on we will find out 
that every time we pass through a keyword that does not match, we 
increase the value of $0B. As we started at 0, $0B will have the number of 
the match word, the first word in the table being 0. The instruction or 
forces bits into the accumulator if they are not set. In this case it has the 
same effect as adding but saves bytes doing it this way. The accumula¬ 
tor always has $80 and if you or it with a value of one you get $81. This is 
how we arrive at the token value. The keyword go is the last word in 
the table and that is the 76th, giving a value in $ 0 B of $ 4 B ( 75 )., and ORing it 
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with $80 gives a value of $cb which is the token value of go. 

Having got our token value, we load back into the y register from $71 
- the pointer to the new buffer layout. We have now reached the point 
where we store a lot of the characters into the new buffer layout. This 
is the point where many of the earlier branches arrive. First, we 
increase both buffer pointers. The base location to store is $0iFB 
indexed with y. As we started with y equal to $04 and increase it 
immediately, our first location will be $01 fb + 5, giving $0200. We will not 
overwrite anything in the original line we have not checked for two 
reasons. First, if there was a line number at the beginning it has been 
dealt with and is no longer needed. Secondly, the routine only 
shortens and never lengthens. 

Once the byte has been stored, it is loaded back in and checked for 
zero which signifies the end of the line. 

LINES 470-550: This section is going to test if the byte we have stored is 
either a colon or one of the keywords data or rfm. If it is a colon, it 
unsets bit 6 of location $0F which we discussed earlier, then goes to get 
more bytes, data will set the 6th bit of that location before getting more 
bytes. 

rem is slightly different in that nothing after it requires tokenizing. 
We set the location of $0B to zero, as that is the result of the subtrac¬ 
tions, which we will not actually need for checking but which stops us 
from branching out of the next section for any reason other than the 
end of line. 

LINES 560-640: These lines are used only in two instances: on encoun¬ 
tering a quote or encountering rem. All this does is to move bytes from 
their original to their new position in the input buffer, until we reach 
the end of the line or, in the case of a quote, we find a closing quote. 
Finding either of these, we branch back to the normal store lines of 
420-460. The branch in line 640 is enforced as x can never be zero as 
before we get here we have looked at a minimum of two bytes so the 
least x can be is 1 and the maximum $58 (the maximum input line 
length). 

LINES 650-710: This is the section we come to if we did not find a 
keyword match. All this does is to search for the next character in the 
table that has a value greater than $80, and return with its position. The 
pointer will be increased before we start another match. It also checks 
for a 0, signifying the end of the table. 

So far the routine is the same as in rom but now we change the 
course of events. In the rom routine, when it finds the end of the table 
it assumes the characters are variables and stores them as such. We, on 
the other hand, want to see if it is one of our keywords, so on getting 
zero we have to search our table. The y register is loaded at the 
beginning of the section because either way we want to get back the 
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first character of this particular check from the original input buffer 
line up. 

LINES 720-910: This is a repeat of the checking of the standard 
keywords except it will have the address of our keyword table. We will 
now be checking for our keywords. 

LINE 920: When we have found and stored the end of line zero, we get 
here. The routine now jumps off to end or to the original rom routine. 
There it will reset the chrget pointers to their initial setting of $0iFF and 
continue the normal flow of basic to either store the line or carry out its 
instructions if in direct mode. 


Print tokens 

This routine is part of the fist routine in basic. It takes the token value, 
finds the keyword and prints it to the screen, or other device. The rom 
print token routine is not a subroutine by itself but an integral part of 
fist, but thankfully it is vector-started. The vector points to the next 
instruction in the rom routine. What we would have to do is to change 
the vector to a routine of our own, print keywords of either the 
standard ones or our own, and then jump back to the fist routine at an 
appropriate point. The coding for such a routine is as follows: 


10 


BPL 

ROM 1 




20 


CMP 

#$FF 




30 


BEQ 

ROM 1 




40 


BIT 

$0F 




50 


BMI 

ROM 1 




60 


CMP 

#$CC 




70 


BCC 

CBM TOKEN 



80 


SEC 





90 


SBC 

$CB 




100 


TAX 





110 


LDA 

# LSB 

START 

OF 

OUR 

120 


STA 

$22 




130 


LDA 

#$MSB 

START 

OF 

OUR 

140 


STA 

$23 




150 


BNE 

START 




160 

CBM TOKENS 

SEC 





170 


SBC 

#$7F 




180 


TAX 





190 


LDA 

$9E 




200 


STA 

$22 




219 


LDA 

#$A0 




220 


STA 

$23 




230 

START 

STY 

$49 




240 


LDY 

#$FF 




250 

NEXT WORD 

DEX 






KEYWORD TABLE 
KEYWORD TABLE 
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268 

270 NEXT CHAR 
280 
290 
300 

310 WORD FOUND 

320 

330 

340 

350 

360 ROM 1 
370 ROM 2 


BEQ WORD FOUND 
I NY 

LDA ($22),Y 
BPL NEXT CHAR 
BM1 NEXT WORD 
I NY 

LDA ($22) ,Y 
BM1 ROM 2 
JSR $AB47 
BNE WORD FOUND 
JSR $A6F3 
JSR $A6EF 


LINE 10: This tests the negative flag. A value of $80 (128) or over is 
signalled as negative. As all tokens are $8@ or over, this branch will 
succeed; values under $80 go back to list unchanged. 

LINES 20: $ff is the value of 'pi'. If it is that value we again return to list. 

LINES 40-50: What we are doing here is putting bit 7 of location $@f into 
the negative flag, although it does other things which are of no con¬ 
cern to us. Location $@f is the flag used by the list routine to signal if it 
is listing in quotes or not. If bit 7 of $@f is 1, then it is listing in quotes 
and we do not want to print tokens but the ASCII of the bytes. 
Therefore, if the negative flag is set, we branch to go back to rom. 

LINES 60-70: Here we find out whether it is one of the standard tokens 
or one of ours. It will branch off if it is standard. 

LINES 80-150 OUR TOKENS 

80-100: Here we subtract a number that is one less than our first 
token value. The result is then transferred to the x register to act as a 
counter. The value of x is one greater than the position in the table 
(starting at 0) but x will be decreased before we start the search. 

110-140: We store the start address of our table in what will be our 
search registers. 

150: This is enforced as the last figure in the accumulator, the msb of 
our table, will not be zero. We are hardly likely to have a keyword table 
in the zero page which has many important basic locations. 

LINES 160-220 CBM TOKENS: This is a duplicate of lines 80-140 except 
it is for the standard tokens and keyword table. 

LINES 230-240: So far we have not used or altered the y register but we 
store it here in location $49 for the list routine as that is where it will 
expect to find it later. We initialise y with $ff but will increase it before 
our search so it will start a zero. 

It may be worth a note here that we will not alter the values of the 
search registers, $22 and $ 23 , as the 64's keyword table is not longer than 
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256 bytes and it is unlikely that ours would be. Therefore, incrementing 
y through its 256 range (0-ff) will serve our purpose. It also saves bytes 
and time. 

LINES 250-260: Every time we read a word from the table we will come 
here and decrease the x register. If x is zero, then we have found the 
position one byte before the keyword we want. In that case we branch 
off to print the keyword. 

LINES 270-300: Here we increase our table pointer, the y register, and 
then load in the next character from the table. Remember that the last 
character of a keyword is its ASCII form plus $80 (128) and this is what we 
look for. This will set the negative flag in the status register. 

The first check is to see if the negative flag is unset signifying a 
branch back to get the next character. If the negative is set, then the 
end of the word is found and we branch back to test x to see if we have 
come far enough. One of these two branches must work as a byte is 
determined as either negative or positive. 

LINES 310-350: We have found our word and now have to print it out. 
First we increase our pointer to pick up the first character. We load it 
and test to see if it is the last character. If it is we go to the basic rom to 
have it printed through the list routine. Failing this, we go to another 
rom routine to have the character printed. We will return with the 
same character in the accumulator. As a keyword will not have a byte of 
zero value, the branch in line 350 is enforced, to get another character 
to print. 

LINE 360-rom 1 : The character was not a token at the beginning so we 
go back to the list routine to have it printed and continue with the 
listing. 

LINE 370-rom 2: We have here the last character of the keyword in the 
accumulator. Now we go back to the list routine where it will be 
turned into the proper ASCII value, printed and the listing continued. 

basic token dispatch 

This is the routine that basic uses on finding a token to get the address 
for the routine. It deals only with command keywords, such as print. It 
is a subroutine in itself. What we need to do is put in a routine that it 
goes to first, through the vector. 


10 

JSR 

*0073 

20 

CMP 

#*CC 

30 

BCC 

ROM 

40 

CMP 

♦♦HIGHEST COMMAND TOKEN VALUE 

50 

BCS 

ROM 

50 

JSR 

DISPATCH 

70 

JMP 

TA7EA 
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88 

DISPATCH 

SEC 


98 


SBC 

#$CC 

100 


ASL 


110 


TAY 


120 


LDA 

START 

130 


PHA 


140 


LDA 

START 

159 


PHA 


168 


JMP 

$0073 

170 

ROM 

JSR 

$0079 

180 


JMP 

$A7E7 


OF OUR VECTOR TABLE+1,Y 
OF OUR VECTOR TABLE,Y 


LINE 10: Get the token from the input buffer or program line through 
the chrget routine. 

LINES 20-30: We check to see if it is one of our tokens. If it is not, we 
branch off to the normal routine in rom. 

LINES 40-50: Now we find out if it is a command or a function token of 
ours. If it is a function vector, then it is a syntax error' so we branch to 
rom to print it. 

LINES 60—70: Here we go to our subroutine for dispatch. When the 
keyword routine has been completed, the program flow will come 
back here where we shall jump back to basic for continuation. 

LINES 80-150: We subtract our lowest token value from the value we 
have. This will give us values of 0 upwards. Now as each routine has a 
two byte address, we must double our 'new' token value to get its 
proper place in the vector table. The instruction asl does just this by 
shifting all bits one place left and putting a zero in bit 0. This new value 
is transferred to the y register as a pointer in the table. What we are 
going to do is to put a new return address on top of the stack (the 
program counter expects the lsb on top with the msb underneath). 
Therefore, we take the second byte of the table first, put it on the 
stack, and then the first. Remember our vector table is made up of lsb 
then the msb. 

We now imp to the chrget routine to pick up the next byte. The rts at 
the end of chrget will now be to our keyword routine as we have just 
put its address on the stack. We came to these lines (80-150) by a jsr 
command so its return address was originally on the top of the stack. 
We then put another address on top of that which was pulled off in 
chrget leaving our original return address once more at the top. At the 
end of the keyword routine this address will be pulled off and we will 
return to line 70 of this routine. 

LINES 170-180: Here we go to the normal dispatch routine. This is not 
the address normally found in the Token Dispatch Vector because we 
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will miss out the first instruction which is to get the next byte. We go to 
chrgot first not to get the byte we have already got but to set the flags 
that the rom routine wants to test. 

basic function dispatch 

This is the routine that will find the routine addresses of function 
keywords. 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 DISPATCH 
110 
120 
130 
140 
150 
160 
170 
180 

190 ROM 
200 


LDA #00 
STA $0D 
JSR $0073 

CMP SLOWEST FUNCTION TOKEN VALUE 
BCC ROM 

CMP #$HI6HEST TOKEN VALUE 

BCS ROM 

JSR DISPATCH 

RTS 

SEC 

SBC SLOWEST FUNCTION TOKEN VALUE 

ASL 

TAY 

LDA #$START OUR FUNCT VECT TABLE+1,Y 
PhM 

LDA #$START OUR FUNCT VECT TABLE,Y 
PHA 

JMP $0073 
JSR $0079 
JMP $AE8D 


This is basically the same as the previous routine. The return addresses 
to rom are different, as will be the table address. The first two lines 
load a location which basic uses to decide whether to accept numeric 
or string data, the latter value would be $ 80 . 

The other difference is that on return from the function routine we 
will arrive back at line 90. The previous routine went back to basic for 
another command, but here we rts as functions will be performed as 
part of a command routine and therefore we go back to it. 




4 Keyboard revisited - 
making use of the 
wasted keys 

On the far right of your keyboard there are four keys that do not really 
do much, at least at the moment. They are, of course, the function keys. 
In this chapter we are going to show you how to make use of them. First 
we thought it a good idea to describe the rom routine in the 64 which 
services the keyboard. In doing so we will also come across the locations 
that appertain to the keys. 


The hardware interrupt vector 

Every 1/60th second the computer hands control to an interrupt system. 
When the microprocessor receives an interrupt signal it will not do 
anything until the present instruction has been completed. The proces¬ 
sor will then save the program counter and the status register. The 
program counter is then loaded with the contents of locations $fffe and 
$ffff. This will start a routine at $FF48 which saves the register contents on 
the stack before doing an indirect jump to the vector at $0314 and $0315. 

The interrupt routine found at this vector points to address $EA3i. This 
kernal routine performs several housekeeping operations such as the 
update of the system clock, but it also scans the keyboard. The key that 
you press is picked up by the Complex Interface Adapter # 1 , and in 
particular the Data Port b within that chip. From this the value of the key 
pressed, and shift keys if used, is calculated and stored. 

There seems to be some doubt from what we have read about which 
location the current key value is stored in. The current value is stored in 
$cb (203) and the last in $C5 (197). This to the basic programmer does not 
make a lot of difference unless the key buffer is full when the key value is 
not logged except in $cb. The shift, logo and Ctrl keys have the same 
system, with the current location being $028D (653) and the last press in 

$028E (654). 

Having stored your current input it will check to see if it is the same as 
the last key press. Its next action will depend on whether it is the same, 
or not. If the same, it will see if it is a repeat function such as the cursor 
keys or if location $02BA (650) has been set for all keys to repeat. Failing 
this, the value will not be placed into the keyboard buffer. Where the 
key values are processed it does so by looking up a table to obtain the 
ASCII code for your key press. This value is placed in the keyboard 
buffer and its counter updated. 
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The keyboard buffer is situated at $ 0277 - 50280 , a size of ten characters. 
It operates on the system that the first character in will also be the first 
out. The pointer for the number of characters in the buffer at a 
particular time is $C6 098). The size of the buffer can be reduced from its 
initial value of ten by setting register $0289 (649). 

Earlier we said that every key has a value. These are from 0 to 64, the 
latter being no key press. A table of these, and the shift key values are 
given in the appendices. 

Here is a summary of keyboard locations: 


$CB 

203 

Current key press. 

$C5 

197 

Last key pressed. 

$028D 

653 

Current shift etc. 

$028E 

654 

Last shift etc. 

$028A 

650 

Repeat flag: $80 all, $00 normal 

$0277-$0280 

631-640 

Keyboard buffer. 

$0289 

649 

Size of keyboard buffer. 

$C6 

198 

No of chars in buffer. 


The Function Keys 

These keys have values and ASCII codes like any other key. They are: 


Value 


Function key 

($CB and $C5) 

ASCII 

FI 

4 

133 

F2 

4 

137 

F3 

5 

134 

F4 

5 

138 

F5 

6 

135 

F6 

6 

139 

F7 

3 

136 

F8 

3 

140 


Knowing these values and the locations mentioned earlier, we can 
make use of the function keys. 


Function keys within a BASIC program 

One of the most used basic statements for evaluating a key press is the 
get function. This function returns the ASCII code for the first key in 
the keyboard buffer, or the latest key if the buffer is empty. It will not 
wait for a key press. A basic routine could look like this: 

100 GET A$ 

110 IF A$ = "[F1]" THEN 1000:REM ACTION ON FI PRESS 
120 REM ACTION IF ANY OTHER KEY PRESSED 
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This routine will not stop and wait for a key press. It will only branch off 
to line 1000 if key FI is pressed at the same time as the get statement is 
actioned or the next character in the keyboard buffer is the ASCII for 
FI. 

We could adapt this so that it will wait until a key is pressed — any 
key. 

100 GET A$ : IF A$=""THEN 100 

Here line 100 will be repeated until one key is pressed or there is a 
value in the key buffer that has not been read. 

The next thing we could add is a line to clear the input buffer before 
we get a character. The easiest way is to set the register for the number 
of buffer characters to zero. 

90 POKE 198,0 

At the moment the routine actions on any key. If we wanted it to action 
on only two keys, say fi and F 7 , we would have to alter line 120 to: 

120 IF A$ <> "[F7]" THEN 90 
130 REM ACTION ON F7 PRESSED 

Now the routine will wait until a key is pressed. Once a key is pressed it 
goes to 110 to see if it was fi and branches if so. Failing that it goes to 
line 120 where we look to see if it was not F7. On F7 the program will 
continue its flow. Now lines 90-120 will keep repeating until either fi or 
F 7 is pressed. 

The only other alteration we couid do is to rid ourselves of the 
graphic characters in the quotes that represent the function keys. This 
would make it easier for someone else to read and on a non- 
Commodore printer the graphic character would not print. This we can 
do by using the chr$( function when checking a$. Line 110 would now 
look like: 

110 IF A$ = CHR$(133) THEN 1000: REM 
ACTION ON FI PRESSED 

In the get statement all eight function keys can be tested in the same 
way, either by changing the character in the quotes or changing the 
chr$ value. 

Another way of testing for the keys is by examining the key press 
registers set in the interrupt routines. From a basic programmer's 
viewpoint it does not really matter whether you test the current or the 
last key register. The snag with this method is that without checking 
the shift register only four of the function keys can be detected. On the 
other hand, by checking the shift register with all its combinations you 
can have up to 32 function key combinations. Here is a routine that 
tests for function key fi : 



86 Keyboard revisited - making use of the wasted keys 


90 POKE 198,0: REM CLEAR KEY BUFFER 
100 IF PEEK(203)=4 THEN 1000 : REM FI VALUE. 

110 REM PROG CONTINUES IF NOT FI. 

This will not waitforFi.To wait, line 110 will have to be changed to: 

110 GOTO 90 

We have now set up a loop and the only exit is fi being pressed. Now if 
we wanted to test for F 2 , the shift flag would have to be introduced. 
Line 100 could look like this: 

100 IF PEEK(203)=4 AND PEEK(648)=1 THEN 
1000 : REM ACTION ON F2 PRESSED 

If you wanted to go to line 1000 on any key, or no key, apart from F2, 
then the equals sign should be replaced by greater than and less than 
signs. 


Programming the keys in immediate mode 

Our interrupt routine 

The routines that follow will allow you to program the function keys 
with commands or phrases to be actioned as if you typed them in full, 
but using only one keystroke. 

Most of the routines we have seen to do this operation change the 
vector address of the Hardware Interrupt Routine in $0314 and $0315. 
They alter it to point to their routine, which when finished will return 
direct to the normal interrupt routine. This course of action has draw¬ 
backs. First, it adds to the length of the interrupt, especially if the 
user's routine has to be completely followed through. Secondly, it 
means that you have to set up your own registers for checking to see if 
it was the same action as the last time or not, to avoid auto-repeat. A 
further drawback is that if you want to use the data assigned to func¬ 
tion keys within quotes, it is more difficult to suppress the graphic 
character that is generated in the quotes mode along with your phrase. 

So how are we going to achieve this desirable routine of making the 
function keys really useful? Earlier we described the interrupt routine 
and how your key presses are interpreted. What we did not say was 
that there is a vectored jump within it. This occurs after the value from 
the Data Port is put into the current key registers but before it is 
actioned. The vector is held in addresses $@28F and $0290 (655 and 656) and is 
known as the 'Keyboard Table Setup Vector'. If we change the address 
in this vector to point to a routine of our own we can process the data 
first. If the data concerns us we can process it jumping back to the 
normal interrupt routine at a point which misses out the normal key 
press routine. When the data does not concern us, control will be 
handed back to the normal flow of things. 
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The use of the vectors by Commodore has allowed us an easy way to 
program the keys. This cannot be said of the values that have been 
assigned to the function keys. It would have been easier if fi had a 
value of 1 and F 3 , of 3, but this is not the case. 

We are going to have 16 programmed function keys. To get this 
number, you have to use the keys in conjunction with the shift and 
logo keys as follows: 

KEYS FI, F3, F5, F7 - THE KEY ONLY 

KEYS F2, F4, F6, F8 - THE KEY + SHIFT 

KEYS F9, F11, F13, F15 - THE KEY + LOGO 

KEYS F10, F12, FI4, F16 -THE KEY + SHIFT + LOGO 

This gives us keys in the range of 1 to 16, but for the routine it is easier 
to use 0 to 15. We shall load the data into the keyboard buffer so we are 
limited to ten characters. We also require a marker for the end of data 
for each key, which will be a zero, meaning a maximum 11 bytes 
storage for each. It is easier, and quicker, to use 16 bytes per key. This 
wastes five bytes but as we are going to store the data in the ram under 
the basic rom this is unimportant. This will mean the value of the key 
needs to be multiplied by 16 to get the start of its data. Multiplying by 
16 for the low numbers we are using, 0 to 15, simply involves moving 
the four lower bits to the four higher bits and filling the lower ones 
with zeros, four asl instructions will achieve this. Sixteen bytes of data 
for the 16 keys will take one page, 256 bytes, exactly. 

To summarise: 

i) Find out if the key is a function key, yes - continue, no - go to 
interrupt. 

ii) Calculate key number less 1. 

iii) Multiply key number by 16 for table position. 

iv) Get data off the data table and store in the key buffer. 

ASSEMBLY LISTING 


9 *=*8722 


10 

LDY *CB 

! CURRENT KEY PRESS 

20 

CPY #*03 

! IS IT A FUNCTION KEY 

30 

BCC NORMAL 

! NO 

40 

CPY #*07 

! IS IT A FUNCTION KEY 

50 

BCC CONT 

! YES 

69 NORMAL 

JMP *EB48 

! NORMAL INTERRUPT 



KEY ROUTINE 

70 CONT 

LOA *0280 

! CURRENT SHIFT PRESS 

80 

CPY *C5 

! IS CURRENT KEY=LAST 

90 

BNE CONT2 

! NO 

100 

CMP *028E 

! IS CURRENT SHIFT=LAST 

110 

BEQ NORMAL 

! KEY AND SHIFT AS LAST 
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120 

C0NT2 

STY 

$C5 


STORE CURRENT KEY 

IN LAST REGISTER 

138 


STA 

$028E 


STORE CURRENT 

SHIFT IN LAST REG 

140 


CPY 

#$04 


IS IT FI 

150 


BEQ 

FI +1 


YES 

160 


CPY 

#$05 


IS IT F3 

170 


BEQ 

F3+1 


YES 

180 


CPY 

#$06 


IS IT F5 

190 


BEQ 

F5+1 


YES 

200 


LDY 

#$07 


IT IS F7 

210 

FI 

BIT 

$01A0 


VALUE FOR FI 

220 

F3 

BIT 

$03A0 


VALUE FOR F3 

230 

F5 

BIT 

$05A0 


VALUE FOR F5 

240 


CMP 

#$02 


LI HAT SHIFT 

250 


BCC 

NOCHANGE 1 

NONE OR SHIFT - 






VALUES CORRECT 

260 


BEQ 

CBM+1 

l 

LOGO KEY 

270 


LDA 

#$09 

1 

VALUE FOR SHIFT+LOGO 

280 

CBM 

BIT 

$08A9 

I 

VALUE FOR LOGO 

290 

NOCHANGE 

STY 

$BB 



300 


DEC 

$BB 

i 

ONLY WANT NO'S 0-15 

310 


CLC 




320 


ADC 

$BB 

1 

GET FINAL VALUES 

330 


ASL 

A 

1 

MULTIPLY VALUE BY 16 

340 


ASL 

A 



350 


ASL 

A 



360 


ASL 

A 



370 


LDY 

#$A1 

1 

HIGH ADDR KEY TABLE 

380 


STY 

$15 



390 


LDY 

#$00 



400 


STY 

$14 

1 

LOW ADDRESS 

410 


TAY 


1 

TRANSFER TO Y AS 
POINTER 

420 


LDX 

#$00 

1 

COUNTER KEY BUFFER 

430 

NEXT 

JSR 

$81FB 

f 

SWITCH OFF BASIC 

440 


LDA 

($14),Y 

1 

GET BYTE OF [ATA 

450 


PHA 


1 

STORE TEMP 

460 


JSR 

$8202 

1 

SWITCH ON BASIC 

470 


PLA 


\ 

GET BACK DATA 

480 


BEQ 

$EXIT 

1 

END OF DATA 

490 


CMP 

#$5F 


1 ARROW FOR RETURN 

500 


BNE 

$ST0RE 

I 

NO 

510 


LDA 

#$0D 

1 

LOAD CODE FOR RETURN 

520 


STA 

$0277,X 

f 

STORE IN KEYBOARD 


BUFFER 
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538 

I NX 

1 INCREASE COUNTER 

540 

I NY 

! INCREASE POINTER 

550 

BNE NEXT 

! F0RCED-6ET NEXT DATA 

5<40 EXIT 

STX *C6 

! NO OF ClttRS IN KEY 
BUFFER 

570 

LDA #*7F 

! RESET CIA DATA PORT 

580 

STA *DC00 


590 

RTS 



875F 

CBN 

872F 

CONT 

873B 

C0NT2 

8791 

EXIT 

874E 

FI 

8751 

F3 

8754 

F5 

8778 

NEXT 

8762 

NOCHANGE 

872C 

NORN 


878A STORE 


LINES 10-60: What we do here is to get into the y register the value of 
the current key press and see if it is a function key or not. Function 
keys have values from 3 to 6 inclusive. Line 60 has the normal address 
of the Keyboard Table Setup Vector and if we do not find a function 
key this is where we direct the flow. 

LINES 70-110: This part of the routine checks to see if the last key is the 
same as the current key. If it is, then off to the standard routine to avoid 
auto-repeat. At this point we have the current key value in the y regis¬ 
ter and the current shift value in the accumulator. 

LINES 120-130: This is part of the housekeeping. We copy the current 
values we have obtained into the last key registers. This is not only for 
our routine but also for the normal key interpreting routine. 

LINES 140-230: We now take our key value, find which key it is and 
give a number corresponding to the number on the key itself. The bit 
commands will not alter any data at all except for the status flags (which 
we are not testing here). They allow us to 'hide' an instruction within 
the address, in these cases loading the y register, saving bytes and 
branch instructions. For instance, the bit address in line 210 is $0iA0 
which is stored in memory as A001, which is the code for ldy #$01. 

LINES 240-280: We now do the same for the shift value. If there is no 
shift or just the standard shift, there will be no need for any alterations 
so they would branch off in line 250. The logo key requires the value of 
8 (1 +8 giving key 9 and so on) and both shifts 9. We again do this using 
the bit function. 

LINES 290-360: Here we subtract one from the key value and then add 
the result to the shift value, ending up with a value between 0 and 15. 
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This total will be in the accumulator which is then increased 16 times by 
the four asl instructions. We now end up with a value between 0 and 15 
which will be the pointer to the data for that particular key. 

LINES 370-420: The start position of the data table is put in registers $14 
and $ 15 . We also transfer the pointer in the accumulator to the y regis¬ 
ter. Lastly, we initialize the x register to zero to use as a counter to the 
number of characters we put in the keyboard buffer. 

LINES 430-550: At last we can get our data and use it. Earlier we said 
that we were going to put our data in the ram under the basic rom. To 
read it back, we have to 'remove' the rom to access it. This we do by a 
call to an earlier routine in the utility which you will come to later. Now 
we pick up a byte of data and put it on the stack for temporary safe 
keeping, as we require the accumulator for re-enabling the basic rom. 
With the rom back, and having recovered the byte, we have two checks 
before storing it. The first in line 480 is to see if the byte is zero, 
signifying that all the relevant data has been collected and we can 
finish up. The second is a check for the left arrow', which signifies the 
user wants a return to be included (more of this in programming the 
keys). If this succeeds, we will change the byte to the ASCII code for 
return. 

The data is stored in the keyboard buffer starting at the beginning 
and working upwards - it will be removed in the same order. We do 
not need to check for overflow as we are only allowed ten characters to 
be programmed (see next section). Therefore, the zero, which is not 
stored, cannot be later than the eleventh byte. 

Having stored our byte, the two registers are increased by one and 
we branch back to get a further byte. The branch is enforced as we will 
not increase y enough to return it to a zero. The highest value y will 
achieve is $fb (251 dec). 

LINES 550-590: The end is near. Having stored all our data, the x 
register will hold a number equal to the total number of characters we 
put into the buffer. This is put into the register denoting how many 
characters are in the buffer and the operating system will only take that 
many off. The following two instructions are again housekeeping in 
that we reset the data port for collection of the next press. A return 
follows, but didn't we come by a jmp? This is true, but the whole key 
routine is entered by a jsr where the vectored jump is found. We do 
not now need the use of the normal key interpreting routine so we can 
go straight back to the main interrupt. 



Keyboard revisited - maki ng use of the wasted keys 91 


Key 

COMMAND SNYTAX 
KEY 

Displays the current data assigned to the keys in a form which can be 
amended. 

KEY[number between 1 and 15], "[data]" 

Assign data to a particular key. If a return is required, type a to 
signify this. Quotes cannot be used as data. A typical command could 
look like this: 


KEY 7, "LIST*-" 

Here is a full list of the key numbers and how to achieve them: 


KEY 

1 

-FI ONLY 

KEY 

2 

-FI + SHIFT 

KEY 

3 

- F3 ONLY 

KEY 

4 

-F3 + SHIFT 

KEY 

5 

- F5 ONLY 

KEY 

6 

-F5 + SHIFT 

KEY 

7 

- F7 ONLY 

KEY 

8 

-F8 + SHIFT 

KEY 

9 

- FI + LOCO KEY 

KEY 

10 

-FI + SHIFT + LOGO KEY 

KEY 

11 

- F3 + LOCO KEY 

KEY 

12 

- F3 +SHIFT + LOGO KEY 

KEY 

13 

- F5 + LOGO KEY 

KEY 

14 

-F5 +SHIFT + LOGO KEY 

KEY 

15 

- F7 + LOGO KEY 

KEY 

16 

-F7+ SHIFT + LOGO KEY 


key 0 ... will generate a syntax error. We had thought about using this as 
a way of turning off the key routines, but decided on a separate 
command. This makes it more of a conscious decision rather than a 
typing error. The command will be off, which is discussed later. 

We have seen that we can make use of the four 'mystery' keys by 
getting data output on their use and in fact having 16 keys when used 
with the shift and logo keys. Now we have a routine to program the 
data, in which the user can decide what data to apply. This operation is 
acted upon through the keyword key. 

key will perform three functions. It will 'switch' on the keys if they are 
off. This is performed in both of the following options. The choices are 
to program a key or to display the data applied to all the keys, which 
can then be amended on the display. 

As we have said, there are two routines included in this. There is one 
routine to program individual keys and one routine to display the data 
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assigned to all keys. The latter is very similar to the interrupt routine 
discussed earlier except that the data goes to the screen rather than a 
buffer. The former in many ways is the reverse: we take data from a 
buffer- the input buffer-and put it in a tabie. 

ASSEMBLY LISTING 

P *=*864D 


10 

LDA *805B 

! CHECK IF INTERRUPT 



SET FOR KEYS 

20 

CMP #*87 


30 

BEQ START 

! YES 

40 

LDA #*87 


50 

STA *805B 


60 

LDA #*22 


70 

STA *8056 


80 

JSR *8054 

! SET INTERRUPT 

90 START 

JSR *0079 

1 GET LAST BYTE AGAIN 

100 

BEQ DISPLAY 


110 

JSR *81F5 

! GET PARAMETER 

120 

JSR *AEFD 

! CHECK FOR COMMA 

130 

LDA *14 


140 

BEQ SYNTAX 

1 NO KEY0 

150 

CMP #*11 

! HIGHEST KEY IS 16 

1 <40 

BCS SYNTAX 


170 

DEC *14 


180 

LDA *14 

i SET TO CALCULATE 



POINTER 

190 

ASL A 

! CALCULATING POINTER 

200 

ASL A 


210 

ASL A 


220 

ASL A 


230 

TAY 


240 

LDA #*A1 

1 HI ADD FOR KEY TABLE 

250 

STA *15 


260 

LDA #*00 

1 SET LO ADD FOR KEYS 

270 

STA *14 


280 

LDX *0A 

! COUNTER MAX NO OF 



CLttRS 

290 

JSR *0079 

! GET LAST BYTE AGAIN 

300 

CMP #*22 

! IS IT A QUOTE 

310 

BEQ C0NT2 

! YES 

320 SYNTAX 

JMP *AF08 

! PRINT SYNTAX ERROR 

330 C0NT2 

JSR *0073 

! GET NEXT BYTE 

340 

BEQ ZERO 

! END OF DATA INPUT 

350 

CMP #*22 

1 IS IT A QUOTE 
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360 

BEQ ZERO 

! END OF DATA INPUT 

370 

STA ($14),Y 

! STORE DATA IN 



TABLE 

380 

I NY 

! INC TABLE POINTER 

390 

DEX 

! DEX CHAR COUNT 

400 

BNE C0NT2 

! IF ZERO MAX NO 



CHARS REMAINDER 



IGNORED 

410 ZERO 

LDA #$00 

! END OF WORD MARKER 

420 

STA ($14),Y 


430 

JSR $0073 

! GET NEXT BYTE 

440 

RTS 

' FINISHED 

450 DISPLAY 

LDX #$00 

1 SET COUNTER 

460 

STX $5F 


470 

I NX 


480 

LDA #$20 

1 SPACE AS NO TEN'S 



DIGIT 

490 

STA $22 


500 

LDA #$31 

1 ASCII FOR ONE 

510 

STA $23 


520 

LDA #$00 

! LO BYTE OF DATA TABLE 

530 

STA $14 


540 

LDA #$A1 

! HI BYTE OF DATA TABLE 

550 

STA $15 


560 PD1 

JSR PRINT 


570 

INC $23 

! INCREASE NUMERAL 

580 

INC $5F 

! INCREASE KEY COUNT 

590 

I NX 


600 

CPX #$0A 

! HAVE WE DONE KEYS!-9 

610 

BCC PD1 

! NO 

620 

LDA #-$31 

1 NOW HAVE A TEN DIGIT 

630 

STA $22 


640 

LDA #$30 


650 

STA $23 


660 PD2 

JSR PRINT 


670 

INC $23 


680 

INC $5F 


690 

I NX 


700 

CPX #$11 

HAVE WE DONE 16 

710 

BCC PD2 ! 

NO 

720 

RTS 

YES 

730 PRINT 

LDY #$05 ! 

COUNTER 

740 NEXTA 

LDA PDATA,Y 

PRINT " KEY ■ 

750 

JSR $FFD2 


760 

DEY 


770 

BNE NEXTA 
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780 

LDA *22 


790 

JSR *FFD2 

! PRINT TEN'S 



NUMERAL OR SPACE 

880 

LDA *23 

1 PRINT LOW NUMERAL 

818 

JSR *FFD2 


820 

LDA #*2C 


830 

JSR *FFD2 

! PRINT COMMA 

840 

LDA 8*22 


350 

JSR *FFD2 

! PRINT QUOTE 

860 

LDA *5F 

! CALC TABLE POINTER 

870 

ASL A 


880 

ASL A 


890 

ASL A 


900 

ASL A 


910 CONT 

TAY 

! PUT POINTER IN Y 

920 NEXT 

JSR *81FB 

! SWITCH OFF BASIC 

930 

LDA (*14) ,Y 

! GET CHAR OFF TABLE 

940 

PHA 

! TEMP STORE 

950 

JSR *8282 

! SWITCH ON BASIC 

960 

PLA 

! RETRIEVE CHAR 

978 

BEQ EXIT 

! FOUND END OF WORD 

980 

JSR *FFD2 

! PRINT CHAR 

990 

I NY 


1000 

BNE NEXT 

! ENFORCED 

1010 EXIT 

LDA 8*22 


1020 

JSR *FFD2 

! PRINT A QUOTE 

1030 

RTS 


1048 PDATA 

BYT *20 ,'Y,' 

E,'K,*20,*0D 


8691 

C0NT2 

CO 

$ 

CO 

DISPLAY 

8716 

EXIT 

8704 

NEXT 

86E0 

NEXTA 

86BD 

PD1 

86D1 

PD2 

871C 

PDATA 

86DE 

PRINT 

8661 

START 

868E 

SYNTAX 

86A0 

ZERO 


LINES 10-80: Earlier in the utility, a routine will exist that is used when 
the extension is initialized or when stop/restore is used. This sets the 
Keyboard Table Setup Vector to where we want it to point to. These 
addresses can be changed by the off command. Here we look to see if 
the high byte of the address is pointing to our interrupt routine. If not, 
we change the address in the setting routine to point to our interrupt 
routine and then call the setting routine to initialize. 

LINES 90-270: A call first to the chrcot routine to get the byte after the 
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key token. This is necessary as we have used the accumulator and so 
overwritten the byte. If the byte has set the zero flag, then there are no 
further parameters and a display of the key data is required. The 
program in that case branches to the display which starts at line 450. 

Knowing we have got some parameters, off we go to our 'get para¬ 
meter' routine (Chapter 6) and to a rom coding to see if the byte after 
the key number is a comma. This coding will not only update the 
chrcet address but will generate a syntax error if a comma is not found. 

The parameter we want is now held in location $14 - the key number. 
This value is put in the accumulator and checked for two things. If it is 
zero or greater than sixteen, it is out of bounds, so an error message is 
required, and therefore we branch off to get this printed. As in the 
interrupt routine it is easier to work in numbers 0 to 15 rather than 1 to 
16 so we decrease the value in $14 by one and then reload back into the 
accumulator. 

To get the pointer to the required position in the data table, the 
number is multiplied by 16 with the asl instructions. The y register will 
be the pointer so the value is transferred to it. Next we load two 
registers with the address of the data table start. Now we are in a 
position to get, and store, the data. 

LINES 280-440: The data generated by using the function keys will be 
placed in the keyboard buffer. This buffer is only ten characters in 
length so we have to limit the input to that number. This is achieved by 
setting the x register to ten ($@A). We said earlier that the comma check 
updates the chrget address so a call to the chrcot routine will get the 
next byte we want. This should be a quote; if not a syntax error is 
generated (remember that chrget skips spaces). 

Now to get the data and store it. To get the data we make use of 
chrget. If the zero flag is set, the end of the command has been 
reached with either a colon or a zero placed by the basic input routine. 
The second quote is checked which also signifies the end of data input. 
If any of these are found, we branch off to end the routine at line 410. 
We can now store our data in the table under the basic rom. We do not 
have to disable the rom as you cannot store data in rom so it is 
automatically stored in the ram underneath. We increase the y register 
which points to the table position. We decrease x which checks for 
overflow of data. If x reaches zero, the maximum number of characters 
has been stored. The flow only branches back to get the next byte if x is 
greater than zero. 

To finish off, we store a zero after the last byte of data. This will help 
when retrieving the data to signify all data has been gathered. 

We do another visit to chrget to get the next byte as basic expects 
this. This will cause a syntax error if you have input more than ten 
characters of data though the first ten bytes will have been logged. 

The rts returns us to basic for further operations. 
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DISPLAYING THE KEY DATA 

LINES 450-550: These instructions set up the registers used in the 
display itself. The x register is again used as a counter. Location $sf will 
have the value of the key number less one and will be used to calculate 
the pointer for data collection. Locations $22 and $23 hold the ASCII 
values of the key number. As keys up to and including 9 have only one 
digit location $22 is loaded with the ASCII for a space character. $23 
starts with the ASCII for 1 and will be incremented. Finally, we load up 
the address of the start of the data table into registers $14 and $ 15 . 

LINES 560-610: Call the coding to print key data for keys 1 to 9. After 
calling, the ASCII value in $23 is increased along with the key number 
register $sf. Register x is also increased and checked to see if it has 
reached $oa (ten). If so, we would have to reset the ASCII numbers 
before printing further data. If x has not reached this value, we branch 
back to call the print coding for the next key. 

LINES 620-720: First we reset locations $22 and $ 23 . Key numbers from 
10 to 16 have to be displayed so we have two digit numbers, the first 
always being one. Therefore, $22 is loaded with $ 31 , the ASCII for one. 
The other is initialized to zero in ASCII format. We now continue to 
print out the key data, incrementing $sf, and x each time, until x rea¬ 
ches the value of 17 just after being incremented. This value of x 
signifies we have finished the display so we exit from the routine and 
hand control back to basic. 

The Print Routine to Display the Key Data 

This part of the command is entered 16 times in total to print the data 
to the screen. The value for calculating the pointer, held in $sf, is set 
before these lines are implemented, as are the ASCII values of the key 
number. We use the kernal routine at $FFD2 to print a character to the 
screen. The data is printed out in the same format as it was entered. 
This is done so that it can be changed, just like normal screen editing, 
if required. 

LINES 730-770: The start of every key display line will be the same. 
These lines will print this from the area of data at the end of the routine 
(Line 140). We start with a return so it starts on a new line, then a space 
to give better clarity if the border and screen are different colours, 
especially if the border and text colours are the same, key is printed 
next, followed by a space for presentation. 

LINES 780-850: The key number is printed, followed by a comma and 
the first set of quotes. 

LINES 860-910: The key number, less one, is taken from $sf and 
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increased 16 times with the now familiar four asl instructions. The 
result is transferred to the y register for the data pointer. 

LINES 920-1030: Get the key data. First we switch off basic to get the 
data underneath. After returning the basic, we print the data as long as 
it is not the 'end of data' zero. Printing finished, we update the pointer 
and go back to get the next byte. When the zero is found we exit and 
print the closing quote. Then it's back to the main key display routine. 

OFF - Turn off the keys 

COMMAND SYNTAX 
OFF 

There are no parameters with this command. 

If you want to use the function keys within a program simply as keys, 
you will want to be able to disable the programming they have been 
given. The command that enables you to do this is off. All we do is to 
alter the addresses in the routine that sets the Keyboard Table Setup 
Vector back to its normal address. Once changed, we call the routine 
to change them in the basic work area. Do not forget that they can be 
re-enabled with any key command. 

ASSEMBLY LISTING 
9 *=$8799 


10 

LDA #$48 


20 

STA $8056 

! CHANGE LOU ADD IN 
SETTING ROirriNE 

30 

LDA #$EB 


40 

STA $8958 

! CHANGE HIGH ADD IN 
SETTING ROUTINE 

50 

JSR $8054 

! CALL SETTING ROUTINE 

40 

RTS 



Stand alone programmable function keys 

Perhaps this chapter would have been better located between Chap¬ 
ters 6 and 7. It was difficult to decide on its position as it also uses 
information from both Chapters 2 and 3, but will not work as it stands. 

To provide programmable function keys without using the keyword 
enable routine, the 'get parameter' and 'switch off basic' routines have 
to be copied from Chapter 6. The whole routine may then be relocated 
and the actions of key and off performed using sys commands. 



5 Utilities in basic 


General 

This chapter includes many of the utilities in the form of basic sub¬ 
routines and programs. You do not really need any of that which 
follows if you load-up the utility each time. In time we suspect that the 
simple routines contained here will not only prove useful, but will also 
give you plenty of ideas of your own. 

A number of the utilities require that you generate an ASCII file of a 
program on tape or disk. This produces a file in the same format as 
would be received at a printer or the screen itself. The resulting 
sequential file contains the program in 'un-tokenized' form. To do this, 
output must be directed to the desired device with an open and cmd 
sequence. For a tape this is: 

OPEN 1,1,1, "PROGRAM" :CMD1: LIST[from - to] 

PRINT#1 :CLOSE 1 

and for a disk: 

OPEN 2,8,2,"PROGRAM,S,W":CMD2:LIST[from-to] 

PRINT#2:CLOSE 2 

Most of the utilities given here are in the form of subroutines and have 
been numbered in the 60000s to allow them to be easily added on to 
your own programs as and when appropriate. They may be included in 
whole, or in part, by a suitable merge or append technique. You may 
wish to combine a number of them together to form useful modules 
which in the future may save many hours of repetitive work. This you 
can easily do by using the mini-renumber and merge programs given. 
Many of the routines can be extended, but they have deliberately been 
kept as short as possible. Always try to adopt a 'house’ format to 
simplify the creation of future programs. This may only be a simple line 
numbering sequence where: the working part of your program lies 
between lines 100 and 9999; the specific subroutines lie between 10000 
and 50000; and your library routines are from 50000 on. 

The information upon which much of the following is based is 
contained in Chapter 1 and we refer you to that chapter. The utilities 
that follow are arranged in alphabetical order. 
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Keyword - APPEND 

Append 1 

Function: To append two basic programs in memory (nose-to-tail) 

In the past, whenever you have loaded a program, it has erased the 
one currently in memory. This need not be the case, basic can start at 
any address in memory and need not always be the default of 2049 
($ 0801 ). The pointer (Txtiab) to tell the 64 where basic begins is held in 
ram and can therefore be changed. It is even possible to have two 
basic programs resident in memory concurrently by changing the 
necessary zero page pointers, though only one could be running at 
any time. We can manipulate these pointers to allow us to append 
one program to another. 

With a program in memory change txttab to point to its end (VAR- 
tab-2) by: 

A=PEEK (45) .POKE 43,A-2:POKE 44,PEEK(46)+A<2 

The program to be appended will now be loaded at the end of the 
existing one. Resetting the start of basic will make the 64 see both 
programs as one by: 

POKE 43,1 :POKE 44,8 (assumes original start was 2049/$0801) 

The resulting program may then be edited or saved in the usual way. 
Many texts say the appended program should have line numbers 
higher than the original. This is not essential, but some confusion can 
result if this is not so. Try appending when the second program does 
not have higher line numbers and see. 

The combined program will run correctly until a goto or gosub ref¬ 
erences a line which occurs twice. By virtue of the way these com¬ 
mands work, the branch will always be taken to the first occurrence 
of a line. 

Append 2 

Function: To append two programs on disk (basic or machine code) 

Program files on disk store an image of the memory which the pro¬ 
gram occupied. The first two bytes record the load address and the 
last byte is a zero to mark the end of file. They can, however, be read 
and written in a sequential manner. This allows us to append files in 
much the same way as we did above, but this time performing the 
operation solely on disk. The following program will append two 
programs which will load at the address of the first: 
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LINE ACTION 

130 Open up 'Program' files for read and write. 

140 Read first program and make a byte by byte copy 
TO in the combined file. Skip the terminating zero byte 
180 and jump to read the second program. 

200 Read the load address and discard it. 

210- Copy the remainder through to produce the combined file. 

100 INPUT"FRONT PROGRAM";F$ 

110 INPUT"C2SPC3END PROGRAM";E$ 

120 INPUT"FINAL PROGRAM";R$ 

130 OPEN 2,8,2,F*+",P,R":OPEN 3,8,3,R*+" 

,p,ur 

140 GET#2,A* 

150 B$=A$:GET#2,A$:IF ST AND 64 GOTO 180 
160 IF A$="" THEN A*=CHR*<0> 

170 PRINT#3,B$;:GOTO 150 
180 CLOSE 2 

190 OPEN 2,8,2,E$+", P, R" 

200 GET#2,A*:GET#2,A* 

210 GET#2,A*:IF ST AND 64 GOTO 240 
220 IF A$="" THEN A*=CHR*<0> 

230 PRINT#3,A*;:GOTO 210 
240 PRINT#3,CHR*<0); 

250 CLOSE 3:CLOSE 2 

Append 3 

Function: To reopen an existing closed sequential file on disk and 
continue writing data from the previous end of file. 


This is a standard disk command which is not made clear in the disk 
manual. Its format is: 


OPEN 2,8,2/TEST,A" 


Subroutine keyword - AUTO NUMBER 

Function: To automatically generate line numbers as code is entered. 

Initiation: run 60000 

This allows the start line and increment to be set. The line number is 
printed, followed by any characters typed. When return is pressed the 
program enters the line, resets the line number variables (as an edit 
destroys all variables) and reruns itself by forcing two returns into the 
keyboard buffer. As written, the program will not accept any line not 
followed by basic code (equivalent of delete line). 



Utilities in basic 101 


LINE ACTION 

60010 Position cursor to 3rd line down and print line number in black. 
60020 Generate a flashing cursor- not normally present on a get 
60040 Watch out for null lines 

60060 Print line to - goto 60010 , reset variables, restart program and 
move to home. 

60070 Set ndx for two characters in keyboard buffer. Put two returns in 
k/b buffer klyd». On end keyd will be emptied and the returns will 
enter the line and execute line from 60060 

68000 INPUT "STARTI4SPC]";LN: INPUT "INC 
REMENT" ; V/ 

60010 B$="":PRINT CHR$<147);CHR$<17);CHR 
$(17);CHR$<17);CHR$<144);LN;CHR$<154); 

60020 POKE 204,0:P0KE 207,0 
60030 GET A$:IF A$=" " GOTO 60020 
60040 PRINT A$;:IF B$= M " AND ASC(A$)=13 
GOTO 60010 

60050 B$=A$:IF ASC(A$)<>13 GOTO 60020 
60060 PRINT " LN= " ; LN+ IX; n : I ; I %; " : GOT 0 
60010";CHR$<19) 

60070 POKE 198,2:POKE 631,13:P0KE 632,13 
: END 


The version below is a little more flexible. It will not only delete an 
existing line if return is pressed after its number, but also allows you to 
change the printed line number to any value. Subsequent line 
numbers will increment from the new value until it is again changed. 
The main difference is the addition of the code to evaluate the current 
line number ((60060 and 60070 ). This is done by reading from the start of 
the fourth screen line until a non-numeric code is encountered and 
reassigning the line number variable ln'. 


60000 INPUT "START!4SPCI";LN: INPUT "INC 
REMENT" ; IV. 

60010 PRINT "[CLSH3CDHBLK3" ;MID$(STR$< 
LN),2);"CL BLU]"; 

60020 POKE 204,0:P0KE 207,0 
60030 GET A$:IF A$="“ GOTO 60020 
60040 IF ASC<A$)013 THEN PRINT A$;:GOTO 
60020 

60050 PRINT:B$="":1=1143 

60060 1=1+1:IF PEEK<I)>47 AND PEEK(I)<58 
THEN B$=B$+CHR$(PEEK<I)):GOTO 60060 
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60070 LN=VAL<B*) : PRINT " LN=" ; LN+ 17 .; " : IX= 
" ;IX;":GOTO 60010CHOMI" ; 

60080 POKE 198,3:POKE 631,13:POKE 632,13 
:P0KE633,13:END 


Program keyword — BASES 

Function: To convert hex to decimal, binary to decimal and vice versa 

This program contains four useful inter-base conversion subroutines. 
The hex to decimal is most useful if you wish to use hex rather than 
decimal values in the data statements for a machine code basic loader. 
The Programmer's Reference Guide, Chapter 3 uses binary patterns for 
the sprite data in the 'balloon' program but pictorial data is also 
enlightening when setting up user-defined characters and makes for 
easier editing. 

No explanation is given as the program is easy to follow. 


100 PRINT"1 HEX/DEC":PRINT"2 DEC/HEX":PR 
INT"3 BIM/DEC":PRINT"4 DEC/BIN" 

110 PRINT:INPUT"SELECT ";N 
120 ON N GOSUB 150,240,330,400 
130 GOTO100 

140 ON N GOSUB 150,240 

150 PRINT:INPUT"HEX!4SPC]";A* 

160 IF LEN(A$)<4 THEN A$=LEFT$(“0000“+A$ 
,4-LEN<A*))+A$ 

170 A=ASC(A*)-48 

180 B=ASC<MID$<A*,2,1)>-48 

190 C=ASC(MID*(A$,3,1))-48 

200 D=ASC(MID$<A$,4,1)>-48 

210 E=256*<16*(A+7*(A>9))+B+7*(B>9)>+16* 

(C+7*(C>9))+D+7*<D>9) 

220 PRINT:PRINT"$ ";A$;" = D";E:PRINT 
230 RETURN 

240 PRINT:INPUT"DECC4SPCI";G:A=INT < G/256 
):B=G-A*256:IF G<0 OR G>65535 GOTO 240 
250 C=INT(A/16):D=A-16*C 

260 C*=CHR$<48+C) : IF 09 THEN OM=CHR*<C+ 
55) 

270 D*=CHR*<48+D):IF D>9 THEN D*=CHR*(D+ 
55) 

280 E=INT<B/16):F=B-16*E 

290 E*=CHR*<48+E):IF E>9 THEN E*=CHR*(E+ 
55) 
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300 F$=CHR$(48+ F):IF F>9 THEN F*=CHR*<F+ 
55) 

310 PRINT:A$=C$+D$+E$+F$:PRINT "D"; G; " = 
* A*:PRINT 

320 RETURN 

330 PRINT:INPUT"BINE4SPCI M ; A$ 

340 a=0:A*=RIGHT$<"0000000000000000"+A*, 
16) 

350 FOR 1=16 TO 1 STEP -1 

360 B*=MID$<A*,I,1):IF B*=“1" THEN A=A+2 
A < 16 - 1 ) 

370 NEXT I 

380 PRINT:PRINT”B ”;LEFT*<A*,8);” ";RIGH 
T*<A$,8);“ = D";A:PRINT 
390 RETURN 

400 PRINT:INPUT"DECC4SPC3";A:IF A>65535 
OR A<0 GOTO 400 

410 B$="":D=A:FOR 1=15 TO 0 STEP -1 
420 B=INT(A/2 A I):IF B=1 THEN B*=B*+"1":G 
OTO 440 
430 B*=B*+"0" 

440 A=A-B*2 a I:NEXT I 

450 PRINT:PRINT"D";D;"= B ";LEFT*<B*,8); 
” ”;RIGHT*<B*,8):PRINT 
460 RETURN 


Program keyword - DATALINES 

Function: To generate basic data statements for machine code 
programs. 

Once again the keyboard buffer is used to generate program lines. This 
time there are more variables in use than would conveniently fit on a 
single assign line so they have been put 'out of the way' in the cassette 
buffer. Only variables in the normal basic variable storage area are lost 
by an edit. The resulting data values are generated to the nearest ten 
bytes. 

LINE ACTION 

60000- Data input. 

60060- poke values to TBUFFR. 

60090 Recycle from here. Re-read next line number, 

60100 step, 

60110 start address, 

60120 end address for current line, 



60130 and end address of program. If finished stop program. 

60140- Print line number, data, the values and goto 60090 . 

60210- Increment line number, address, and set up k/b ready for end. 

68000 INPUT"START ADDRESS";B 
60010 INPUT"END ADDRESS!2SPC3";E 
60020 F=B:L=F+10 
60030 INPUT"START LINE!3SPC3";S 
60040 INPUT"LINE INC!5SPC3";T 
60050 PRINT"!4CDI“ 

60060 P0KE831,INT<E/256) 

60070 P0KE832,E-INT(E/256)*256 
60080 P0KE828,T:GOTO60160 
60090 S=PEEK(826)*256+PEEK< 827) 

60100 T=PEEK< 828) 

60110 L=PEEK(829)*256+PEEKC 830) 

60120 E=PEEK(831)*256+PEEK< 832) 

60130 IFL>=EGOTO60270 
60140 F=L+1:L=L+10 
60150 PRINT"ICUIt14SPC3“ 

60160 PRINTS; 

60170 PRINT"DATA"; 

60180 FORP=FTOL:PRINTPEEK!P);“!CL3,";:NE 
XTP 

60190 PRINT”ICL3I3SPC3" 

60200 PRINT"GOTO60090t4CU3"; 

60210 P0KE198,2:P0KE631,13:P0KE632,13 
60220 S=S+T 

60230 P0KE826,INT(S/256) 

60240 P0KE827,S-INT< S/256)*256 
60250 P0KE829,INT(L/256) 

60260 POKE830,L-INT<L/256)*256:END 
60270 STOP 

Subroutine keyword - DELETE 

Function: To remove unwanted program lines en masse 

Two delete routines follow. Both use the link address and line number 
storage at the start of a basic line during execution to perform the 
deletion. The first deletes line numbers as they are encountered 
whereas the second only deletes one line as the final step in the 
process. The first line of each routine reads txttab to find out the 
current start of basic. 

Delete 1 

This routine deletes lines using the all-too-familiar keyboard sequence 
and as such requires no explanation. 
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60000 TX=PEEK(43)+PEEK( 44>*256 

60010 INPUT"DELETE FROM";LL:M=256:INPUT" 

I7SPCIT0I2SPC]";UL 

60020 IF PEEK<TX+2>+PEEK<TX+3>*M<LLTHENT 
X=PEEK(TX)+PEEK(TX+1>*M:GOTO 60020 
60030 POKE 828,UL-INTCUL/M)*256:POKE 829 
,UL/M:GOTO 60050 

60 0 40 M=256:TX=PEEK(830)+ PEEK < 831)»M:UL= 

PEEK(828) + PEEK< 829)*M 

60050 IF PEEK<TX+2>+PEEK<TX+3>*M>UL OR P 
EEK(TX> +PEEKCTX+1> *M=0 THEN END 
60060 PRINT " [CLSH3CD] " ;PEEKCTX+2)+ PEEK 
<TX+3>*M:PRINT"GOTO 60040[HOMI“ 

60070 POKE830,TX-INT(TX/M)*M:P0KE831,TX/ 

M:POKE198,2:P0KE631,13:P0KE632,13:END 

Delete 2 

This is, perhaps, a more refined way to carry out the task. It takes 
fullest advantage of the way programs are stored in ram and in par¬ 
ticular the function of link addresses. The routine scans the line 
numbers until the start of the block to be removed is found. It records 
the address of this link address and then continues to scan for the end 
line number for the delete. Once a line number equal or greater is 
found, this link address is substituted at the start of the block link. One 
very large line has thus been created in memory. A simple keyboard 
program is then used to remove the start line and all others go with it. 
This is without doubt a lot faster than the first method, but has the 
disadvantage that you cannot see the lines as they go. 

60000 TX=PEEK(43)+PEEKC44)*256 

60010 INPUT"DELETE FROM";LL:INPUT"[7SPCI 

T0C2SPC]";UL 

60020 L=PEEK(TX+2>+PEEK(TX+3>*256 
60030 IF L<LL THEN TX=PEEK<TX>+PEEKCTX+1 
>*256:GOTO 60020 

60040 IF L=0 THEN PRINT"LOWER LIMIT";LL; 

"NOT FOUND":END 
60050 LL=L:D=TX 

60060 L=PEEK(TX+2> + PEEK<TX+3> *256 
60070 IF L=0 THEN PRINT"UPPER LIMIT";UL; 

"NOT FOUND":END 

60080 IF LCUL THEN TX=PEEK<TX)+PEEKCTX+1 
>*256:GOTO 60060 

60090 POKE D,PEEK<TX>:POKE D+1,PEEKCTX+1 

> 

60100 PRINT"ICLS3 C3CDI";LL;"IHOM]":POKE 
198,1:POKE 631,13:END 
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Subroutine keyword - DUMP 

Function: To display the current values of all simple numeric, string and 
function variables 

Initiation: Type goto 60000 

This routine will display the values of all simple variables in use at the 
time of calling. The variables will be displayed in the order in which 
they were created by the program. The routine will not handle arrays 
nor will it work if editing has been carried out prior to its being called 
(simply because all variable pointers will be reset to the end of pro¬ 
gram). It also displays the values of the variables it uses - sv, v$, and so 
on. As these are the last variables to be created they will be the final 
ones to be displayed. Output may be directed to a printer by a simple: 

OPEN 4,4:CMD 4:GOTO 60000 

The display may be stopped by holding down any key and will resume 
on the release of that key. Pressing the stop key will 'break' into the 
program and allow you to use the cursor keys to move up and change 
values. If you resume program execution with a goto, then the 
amended values will be used. A simple cont would re-enter the dump 
subroutine at the break and dump any remaining variables. 

The routine makes extensive use of the information contained in 
Chapter 1 on the storage of basic variables. Remember the first two 
bytes are the variable name adjusted for its type. The following is a 
description of the routine: 

LINE ACTION 

60030 Read the current value of vartab. 

60040 Do the same for arytab. 

60050 Default values. 

60055 If equal then no simple variables, edit used, or finished. If not 
equal more variables exist so continue. 

60060 Read the seven bytes used for variable. 

60070 Determine the type from the two name bytes and goto the 
to appropriate subroutine, these being real, integer, string or func- 
60100 tion. The name bytes must be changed back to their unmodified 
ASCII values by the subtraction of 128, as necessary, and '%' or 
'$' suffixes printed where required. 

60105 Pause if key held down (64=no key at sfdx. Note this is the 
current key not lstx as in the Programmer's Reference Guide). 
60110 Increment 7 bytes to next variable and recycle. 

61000 Subroutine to convert 5 floating point binary bytes to decimal. 
61500 Subroutine to convert the 2 of the 5 bytes used to a signed 
integer. 
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62000 Subroutine to read string length and location then find and 
build string. 

62005 Avoids the single pass through for/next if null string. 

62020 Surround a string with quotes - required for changing its value 
on a break. 

62500 Subroutine to detect a function and simply acknowledge the fact 
as its current value will be picked up by one of the other 
routines. 

60006 : 

60010 :REM DUMP VARIABLES 
60020 : 

60030 SV=PEEK< 45)+PEEK(46)*256 :REM STAR 
T OF VARIABLES 

60040 SA=PEEK(47)+PEEK(48)*256 :REM STAR 
T OF ARRAYS 

60050 V$="":VV*="":V=0:VV=0:REM DEFAULTS 
60055 IF SA=SV THEN END: :REM NO SIMPLE 
VARIABLES OR EDIT USED 

60060 FOR V=0 TO 6:V(V)=PEEK(SV+V):NEXT 
V:REM READ VARIABLE NAME AND VALUE 
60070 IF V( 0X128 AND V< 1X128 THEN GOSU 
B 61000:REM REAL 

60080 IF V(0)>128 AND V(l)>127 THEN GOSU 
B 61500:REM INTEGER 

60090 IF V(0 X128 AND V<1)>127 THEN GOSU 
B 62000:REM STRING 

60 100 IF V<0)>128 AND V< 1X128 THEN GOSU 

B 62500:REM FUNCTION 

60101 IF PEEK(203)< >64 GOTO 60101 

60110 SV=SV+ 7:GOT0 60040:REM INCREMENT C 

OUNTER AND DO NEXT 

61000 V*=CHR*<V<0>)+CHR*CV<1)>:REM REAL 
NAME 

61010 V=<-1 X<V<3)AND128)*2XV<2>-129> 

61020 VV=<l+<(V(3)AND127)+<V(4)+(V(5)+V( 
6)/256)/256>/256)/l28) 

61030 V=V*VV:PRINT V*;"= M ;V:RETURN 
61500 V*=CHR$<V(0)-128)+CHR*<V< 1 >-123)+" 

X":REM INTEGER NAME 

61510 V=(V(2)AND127)*256+V< 3) + (V(2)>127) 
*32768 

61520 PRINTV^;”=";V:RETURN 

62000 V$=CHR*(V<0))+CHR^(V<1)-128>+"* M :R 

EM STRING NAME 

62005 IF V<2)=0 GOTO 62020 
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62010 FOR U=1 TO C'<2) :W*=W*+CHR*(PEEK< 

CK3)+ < v'<4)*256+U-l > > :NEXT U 

62020 PRINT " = “ ;CHR*<34) ;W$;CHR*<34) 

:RETURN 

62500 RETURN:REM FUNCTION PICKED UP BY 0 
THER ROUTINES 

An alternative approach might be to use the technique in renumber (see 
below). Namely, print a line which reads: print the variable name and 
goto the point at which program execution should be resumed. If we 
get the cursor movements right and poke a return into the keyboard 
buffer, a dump could be performed. To tidy up, we should really clear 
the line which says 'print and goto' with more cursor movements and 
spaces, and so on. 

An obvious extension would be to include arrays. The logic involved 
in determining and printing the values of subscripted variables is 
identical to the above and, with care, the same subroutines could be 
used. The tricky bit is deciphering the array header to determine the 
number of dimensions and the size of each dimension. If you do decide 
to try this, do remember integer array values are stored in only two bytes 
and string pointers in three bytes, unlike their simple variable counter¬ 
parts. You must also check that arrays do exist by examining strend and 
comparing it with arytab+i. Array headers have also been covered in 
Chapter 1. Including arrays will greatly increase the size of dump and in 
applications where memory is tight, prove impracticable. It is also 
difficult, so do not worry if your efforts are not rewarded immediately 
as a simple error in the logic can cause some very unexpected results. 

Program keyword — LISTER 

Function: To produce dated, paged and neatly formatted listings 

The version given below has been written for an RS232 printer operating 
at 300 baud, 1 stop bit and no parity (see Programmer's Reference 
Guide, Chapter 6: 'Input/Output Guide'). The printer used also 
required a carriage return/line feed sequence to be generated at the 
end of each line. Therefore, the logical file number used has to be 
greater than 127, in this case #129. When using any RS232 device, it is 
advisable to OPEN-up the file at the start of the program to allocate the 
input and output buffers. For other printers, the open and print# 
statements below will have to be amended to suit. 

If your printer does not support the cbm special characters, the 
program to be listed should first be run through coder before gen¬ 
erating the ASCII file. With a cassette, the open command to read 
sequential data on line 210 should read open2,i,0,a$(d. 

The listing produced is ideal for permanent record, though as the 
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process takes a little time it is not recommended for intermediate 
listings. The final listing will have all text inset to column 7 and any 
wrap-around lines will also be inset. Specifying a line width less than 
the maximum available has the benefit of allowing space for comments 
(can save a lot of time in the future). A brief description follows: 

LINE ACTION 

100 See above. 

110- Set parameters. 

160- Allocate files to be listed to array A$o. 

210 See above. 

220 This line is included to get any leading returns. The number of 
these will depend on exactly how the ASCII file was generated. 
Once a cmd has been issued all returns normally sent to the 
screen will go to the file. Typically this will be two for the list. If 
zeros appear on your output then you will have to adjust the 
program or the way you generate the file. 

230 Create bottom margin. 

250 Build one line into string A$. 

260 Same problem as 220 at end of file. Assume a line number of zero 
is the end. 

270 Reset line for text to start in col 7. 

290 If lengthcmax then print it. 

300- Else split it and print first part. Recycle each time adding 6 leading 
spaces to continuations. 

340 Print blank lines to next top of form before next program. 

100 OPEN 129,2,0,CHR*<6) 

110 PRINT"LISTER UTILITY":PRINT 
120 INPUT"DATEC10SPC3";D* 

130 INPUT"LINES/PAGEE4SPCI";LP:IF LP=8 T 
HEN LP=66 

140 INPUT"MAX CHARS/LINE";CP 

150 INPUT"NO.OF PROGSC 3SPCI*;N:DIM A*<N> 

160 PRINT:FOR 1=1 TO N 

170 INPUT"PROGRAM[7SPCI“;A*<I) 

180 NEXT I 
190 1=0 

200 1=1+1:LC=0:IF I>N THEN END 
210 2=1:OPEN 2,8,2,A*<I)+",S,R" 

220 2=1:GET#2,A*:GET#2,A*:G0SUB 320 
230 IF LC>=LP-8 THEN FOR J=1 TO LP-LC.-PR 
INT#129,"":NEXT J:GOSUB 320 
240 J=0:B*="" 

250 J=J+1 :GET#2,A*: IF A$OCHR*<13> THEN 
B$=B$+A$:GOTO 250 
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268 IF UAL<B*>=0 THEN GOSUB 340:GOTO200 
270 L*=STR* < WL < B* > > : B*=M I D* ( L*+ " C 6SPC ] M 
,2,6>+MID*(B*,LEN<L*>> 

280 L=LEN<B*) 

290 IFL<=CPTHEN PRINT#129,B$:LC=LC+1:GOT 
0 230 

300 L*=LEFT*(B*,CP> sPRINT#129,L*sLC=LC+1 
310 B$=“[7SPC] M +MID$(B$,CP+1):GOT0 280 
320 PRINT#129,"PROGRAM ";A*<I>;" LISTED 
ON ";D*;" LISTING PAGE";Z:LC=2:Z=Z+1 
330 PRINT#129,"":RETURN 

340 FOR J=1 TO LP-LC:PRINT#129,"":NEXTJ s 
CL0SE2:RETURN 

Subroutine keyword - MERGE 
Function: To merge two basic programs 

In all the following where line numbers are common to both the 
program in memory and the merging program those of the latter will 
take precedence. 

Merge 1 

Where a program is less than 22 screen lines when listed, it may be 
merged very easily indeed. Simply load the short program and list it. 
Type new and move the cursor to the line below the last line of the list. 
load the main program and then move up and simply press return on 
all lines to be included in the final program. 

This is the reason for having short keyword routines, to allow the 
above technique to be used on many of them. 

Merge 2 

The following subroutine will merge programs of any length. The 
program (or part of) to be merged must be stored as an ASCII file on 
disk or tape. The program resident in memory must, of course, include 
the merge subroutine. 

Initiation: RUN 60000 

The resulting program will be an amalgamation of the two programs and 
unlike append the lines will be in the correct numerical sequence. At 
the completion of the merge an 'out of data' or 'syntax error' will be 
displayed depending on how the ASCII file was generated and which 
program had the highest line number, but who cares, as the result is 
exactly what we wanted. The program may then be saved in the normal 
way (after deleting lines 60000- if they are no longer needed). The 
version given is for disk and the necessary changes for cassette have 
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been included in the description below, but should be only too 
familiar by now. 

The program uses the keyboard programming technique for the 
most part. There is one problem and that is that whenever an edit is 
performed all open files are CLOSEd. So in theory only one line may be 
read from the file. Any further attempts to obtain input will result in a 
'file not open' error. The solution is simple, basic is made to believe a 
file is open even though an edit has been carried out by POKEing the 
necessary values into the zero page file registers for current logical file 
(LA), secondary address (SA) and device number (FA). 

LINE ACTION 

60010 For tape open 1,1,0,f$ 

60020 Get bytes until numeric code. This overcomes the problem in 
lister and perhaps should also be used in that program. 

60030 Set file parameters by poking into la, sa and fa. For tape use 2, 0 
and 1 (0=read 1=cassette). 

60050 As the first numeric character has been found, mustn't forget 
to print it. - b$ 

60060- As all other programs using keyboard. 

60080 Set up k/b buffer on end to enter printed line and goto 60030, the 
cycle repeating until all done. 

60000 INPUT"PROGRAM ";F$ 

60010 0PEN2,8,2,F*+",S,R" 

60020 GET#2,B$:IF UAL<B*)<1 GOTO 60020 
60030 POKE 184,2:POKE 185,2:POKE 186,8:P 
0KE152,1 

60040 PRINT"FCLS]F3CD]"; 

60 050 PRINTB*;:B$=“" 

60060 GET#2,A*:PRINTA$; : IF A$OCHR*<13) 

GOTO 60060 

60070 PRINT"GOTO 60030[HOM3" 

60080 POKE 198,2:POKE 631,13:P0KE632,13: 

END 

Merge 3 (tape only) 

This is the cleverest tape merge we have seen. It was originally worked 
out by J. Butterfield and B. Templeton for the pet and all we have done 
is to modify it for the 64. 

Again, the program to be merged must be on tape in ASCII format. 
The statements may be typed in direct mode or, as in this case, be a 
subroutine. In direct mode the contents of the quotes should be typed 
after performing the necessary cursor moves and return pressed at the 
end. Line 60030 is needed only in program mode. 
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Initiation: RUN 60000 

The key to this is the poke 153,1 <dfltn) which changes the default input 
device after each line has been merged from the usual default of 0 (the 
keyboard) back to the cassette (1). 

60000 INPUT "PROGRAM ";F$ 

60010 POKE 19,1:OPEN 1,1,0,F* 

60020 PRINT"tCLSI[3CDI POKE 153,1:POKE 19 
3,1:POKE 631,13:PRINT CHR*<19)“ 

60030 POKE 198,1:POKE 631,13:PRINT "[HOM 
]":END 

The most common problem with merge is if a program line is in excess 
of 80 characters when listed (possible if abbreviations have been used). 
The merge will be unsuccessful as the cursor movements will be 
incorrect and also basic's input buffer will overflow. 


Program keyword - OLD 

Function: To recover NEwed programs 

The command new does not actually erase the program in memory, it 
simply changes the first line's link address to 00 00 (2049 and 2050) and 
therefore fools basic into thinking that there isn't a program present. In 
addition, all variable pointers are reset to the end of the program, 
which in this case is the start of basic itself (action of clr). The following 
uses these facts to recover the program by resetting the necessary 
pointers. 

To use old, the start of basic (TXTTab) must be set above the end of the 
NEwed program and txttab-i set to zero by: 

POKE 43,01: POKE 44, no. of pages:POKE (no. of pages) *256,0:NEW 

old may then be loaded and run. The erased program will be 
recovered and you are back in business. As a point of interest old is 
still present higher in memory and will remain so until overwritten by 
variable data or a larger program. 

The program works by hunting from the input value of txttab +4 
(ignore first three zeros) for three consecutive zero bytes which mark 
the end of the erased program. En route the first link is changed to 
point to the second line. Once found, txttab is changed to point to the 
specified start and vartab, to the end address. A clr then tidies up and 
the original program is usTed. 
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60000 INPUT"TXTTAB<204?)";TX:MX=256 
60010 POKE 828,TX—INT(TX/MX)*MX:POKE 82? 
,TX/MX 

60020 X=TX+4+J:IF PEEK<X)<>0 THEN J=J+1: 
GOTO 60020 

60030 POKE TX,X+1-1NT(<X+1>/MX)*MX:POKE 
TX+1,< X+1)/256:TX=X+1 

60040 X=PEEK<TX) +PEEK(TX+ 1 ) *MX: I F XO0 T 
HEN TX=X s GOT0 60040 

60050 TX=TX+1sPOKE 830,TX-INT(TX/MX)*MX: 
POKE 831,TX/MX 

60060 POKE 43,PEEK(828)sPOKE 44,PEEK<82? 
)sPOKE 45,PEEK(830)sPOKE 46,PEEKC831) 
60070 CLRsLIST 


Subroutine keyword - PLOT 

Function: To position the cursor to a specified screen location 

There are many ways of positioning the cursor. The most common way 
is to include the necessary control characters inside quotation marks. 
This can be expensive on memory if a lot of cursor movement is used. 
The movement is also relative to the current location and not 
absolutely fixed to some reference point unless a clear screen or home 
cursor is first issued. Many micros have TAB(x,y), POS(x,y) or htab x and 
vtab y functions within their basics to position the cursor. The following 
are just two ways of doing this on the 64 with its unmodified basic. 

P/of 7 

This uses a simple subroutine into which are passed the line and 
column position. First, two strings are defined - preferably at the start 
of the program as they remain unchanged throughout the run for 
speed of access. They are: 

1 Y$="[24CD]":X$="[40CR]" 

and have been allocated line number 1. To position to any location, the 
x and y coordinates are passed to the subroutine which simply homes 
the cursor then prints the appropriate number of cursor downs and 
rights. 

In the example below, lines 100 to 130 have been included for 
demonstration purposes. 



114 Utilities in basic 


1 Y*="C23CD]":X*="[40CR]" 

100 INPUT"COLUMN";X 
110 INPUT M t 3SPC 3 ROW";Y 
120 60SUB 1000:PRINTX;“,";Y 
130 GOTO 100 

1000 PRINT"[HOM]■;RIGHT$<Y$,Y);RIGHT*KX* 

,X);:RETURN 

The top left of the screen is considered as '0,0'. The semicolon at the 
end of the print in 60000 is included to hold the cursor at the set 
location. 

The idea of holding frequently used character patterns, control 
characters, and so on as string variables can reduce memory usage and 
also makes for easier-to-read code. 

Plot 2 

This second plot routine uses the same zero page locations as the 
kernal function plot see Programmer's Reference Guide. These are pnt 
(209/210), pntr (211) and tblx (214). If you look at the memory map in Chapter 
5 of the prg or Appendix K of this book, you'll notice locations from 200 
to 245 all relate to the screen in some way or other. We are not going to 
run through them all, but try experimenting with them and see what 
happens. If in trouble, turn off the 64. 

Let us look at the three locations we are going to use to accomplish 
plot in a little more detail. 

PNT: contains the address of the start of the current line in low/high 
format. With the screen at its default start (1024-2023), this will hold a 
value iO24+40*row where row is in the range 0-24. Unusual results are 
produced if this does not correspond to the start of a physical screen 
line. 

pntr: holds the offset from the address held in pnt. It is the absolute 
screen column (0-39) when pnt holds the start of line address. 

tblx: holds the current physical screen row. 

Using only pnt and pntr, we can position the cursor to any x,y location. 
The next print would occur at the specified point. However, when the 
cursor returns after the print, it reappears at or below the line it was on 
before pnt and pntr were set. This is difficult to put into words and 
much easier to see. For example, if an input took place on line 23 and 
the cursor was then moved to line 10, column 10 and a print took place 
without a semicolon, the cursor would reappear at the start of line 24 
and not 11 as might be expected. To avoid this, we simply also set tblx 
and all will be well. The routine below has the same effect as the first 
plot routine given. Again, lines 100 to 130 are included for demonstra¬ 
tion only. 
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100 INPUT"COLUMN";X 
110 INPUT"[3SPCIROW";Y 
120 GOSUB 1000:PRINTX;",";Y 
130 GOTO 100 

1000 POKE 214,Y:Y=1024+Y*40 

1010 POKE 20?,Y-INT(Y/256)*256:POKE 210, 

INT(Y/256> 

1020 POKE 211,X 
1030 RETURN 


Subroutine keyword — PRINT USING 

print using is a very powerful output formatting command available in 
some basic languages. It allows numbers to be right or left aligned to a 
specified number of decimal places, or to be expressed in exponential 
format and much more. There are equally as many possibilities for 
strings. A routine to duplicate all the facilities would be very long, so 
here we have only considered the problem of formatting numbers. 

Very quickly everybody picks up on the idea of: 

X=INT(X*10'W+ ,5)/10'W 

to get numbers to a set number of decimal places, where W is the 
number of places. Unfortunately, due to the way numbers are stored, 
this is not guaranteed to produce the expected result. By way of a 
trivial example, try printing @i»649 and 649* 01 and see the difference. 
The result of any calculation is very much dependent on the order in 
which it was evaluated. To overcome the problem we have to resort to 
strings as these are the only type of variable we can fully format. 

The following routine will format numbers not in scientific notation 
and will avoid the xx.xaooei type occurrence by not using any division. 
The value returned is right aligned to w decimal places and padded 
with leading spaces to a set width of l. The variable transferred is in x 
and the string x$ is returned. 


1 INPUT "X";X :INPUT“W“;W:INPUT"L";L: GO 
SUB 60000:PRINTX* 

2 GOTO 1 

60000 X*=STR*<INT(X*l0 A W+.5)):LE=LEN(X*> 
60010 SZ*=".000000000000000":S2*="C31SPC 
] " 

60020 IF LE<W+2 THEN X*=LEFT*<X*,1>+MID* 
< SZ$,1,W+2-LE)+RIGHT*<X*,LE-l) 

60030 IF LE>=W+2 THEN X*=LEFT*<X*,LE-W)+ 
"."+RIGHT*<X*,W> 

60040 X*=RIGHT*(S2$+X*,L):RETURN 
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To illustrate its use, the following display 

COL1 COL2 COL3 COL4 

99.000 100.00 .999 9.51456 

100.091 98.22.010 11.00000 

would be produced by the program lines; where ci-4 represent the 
values to be PRiNTed in cols 1-4 (set elsewhere within your own pro¬ 
gram). 

1 Cl=99.00001:C2=100.00123:C3=.99388:C4= 

9.514569:REM EXAMPLES 

10 L=10:W=3:X=C1:GOSUB 60000:PRINT X*; 

20 W=2:X=C2:GOSUB 60000:PRINT X*; 

30 L=5:W=3:X=C3:GOSUB 60000:PRINT X*; 

40 L=14:W=5:X=C4:GOSUB 60000:PRINT X* 

Where numbers are very large or very small, simply raise them to an 
appropriate power of ten prior to calling the routine and head the 
output'★ 10 'n'. 


Subroutine keyword - RENUMBER 

Function: To renumber a specified section of a program 

It is not possible to write a full renumber program in basic which does 
not use ASCII disk files (somebody will no doubt wish to disprove this 
statement). There are many problems, the biggest of which is in 
renumbering gotos, gosubs and thens line destinations. It is relatively 
easy, albeit slow, to hunt these out by their token values. The problem 
arises in correcting destinations which are held in ASCII form. For 
example, GOTO100 is held as 137 49 48 48 ($89 $31 $30530 in hex). If during the 
renumbering process the destination changes by a magnitude of ten or 
more (the overall length changes), we have to move all code from the 
byte following the reference up or down in memory, recalculating link 
addresses as we go. If all references are entered as five figures as 
standard, this problem is eliminated, for example, GOTO00100. Entering 
line numbers in this way is rather tedious and is considered imprac¬ 
tical. Machine code renumber programs use the 'crunch tokens' 
routine and the necessary memory moves are performed as part of this 
routine when a line is added or removed. See renum in Chapter 7 . 

The program below only renumbers the lines. It will renumber all or 
only a set block. The new line numbers need not even be in sequence 
with the rest of the program, though problems will arise if they are 
referenced. The user will have to manually change all gotos, etc. This 
subroutine is really intended to allow you to put together a number of 
the shorter routines in this chapter. 
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60000 TX=PEEK< 43)+PEEK< 44)*256:MX=256 
60010 INPUT"RENUMBER FROM”;LL:INPUT"[ 9SP 
C3TOC2SPC3";UL 

60020 INPUT"[5SPC3NEW LINE" ; S : INPUT" [ PSP 
C3 STEP”;I 

60030 IF PEEK<TX+2)+PEEK<TX+3)*MX<LL THE 
N TX=PEEK<TX)+PEEK(TX+1)*MX:GOTO 60030 
60040 S=S+J*I:IF TX=0 OR PEEK(TX+2)+ PEEK 
<TX+3)*MX>UL THEN END 

60050 POKE TX+2,S-INT< S/MX)*MX s POKE TX+3 
,S/MX:TX=PEEK(TX)+ PEEK(TX+1)*MX 
60060 J=J+1:GOTO 60030 

Subroutine keyword - SQUASH 

Function: To increase the speed of execution of basic programs 

Many 'crunch' or 'compactor' programs are available, both commer¬ 
cially and in various journals. Their function is to increase the speed of 
execution of a basic program by the removal of redundant code. 

There are many reasons why code is slower than it need be. Much of 
this code is useful at the time of developing the program, but is not 
required at run-time. Some examples have been given at the end of 
Chapter 1, but there are many more. Listing the more obvious: 

Line numbers : When they are the reference for a goto, gosub or then 
they are held in ASCII form. The shorter they are (that is, the lower the 
number), the quicker they are converted to numeric form. Therefore, a 
renumbering with an increment of 1 is advantageous. 

REM : These are ignored at run-time and need only be retained if they 
are a destination, rems also use valuable memory. 

Spaces: Including spaces in a program makes for easier reading, but is 
unnecessary and wasteful (this is true only outside quotes). 

Variable names: One-character names use less space and are found 
quicker. 

Destinations: See Chapter 1 (page 23) 

Screen : See Chapter 2 (page 32) 

Print: Semicolons separating print lists are sometimes superfluous. 
They must be retained after a numeric variable and at the end of a print 
list if a carriage return is to be inhibited. 

Line length: Short lines use an extra five bytes each time (link=2 
line=2 end=1) and also take time in working out the next line's details. 
Lines which are not destinations can be strung together, taking due 
care of the logic of any if statements. Lines may be of any length, but 
are difficult to edit or generate once they exceed 80 characters (even if 
all the possible abbreviations are used, there is a limit to basic's input 
buffer). 
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FOR/NEXT loops: A surprising increase in speed is gained by omitting 
the variable on the next statement. This eliminates the look-up opera¬ 
tion for the variable name. Try timing: 

FORI = 1T0255: FOR J = 1T0255: NEXTJ: NEXTI 

and FOR.NEXT:NEXT 

Operating system : Once spaces have been eliminated, chrget itself 
may be modified to get rid of the test for spaces. (See Chapter 3). 

The subroutine below will remove all unnecessary spaces, semicolons 
and rems. Renumbering is left up to you. Once again, an ASCII file 
must first be generated of the program. The program is based on 
Merge 2 (see page 110) and only the differences from that program are 
described below: 

LINE ACTION 

60030 L is set to 1 to account for b$ in first line. 

60090 As Merge 2 line 60060, returning to k/b bit once a return found. 
60100 Once a rem found, ignore all chars except return. 

60110 Flag to indicate in or out of quote mode. 

60120 Ignore spaces out of quotes. 

60130 Keep spaces in quotes. 

60140 Semicolons out of quotes require careful checking and this is 
carried out at 60210 on. 

60150 Semicolons in quotes-keep. 

60160 If not an 'M', don't look for rem. 

60170 Else see if preceding two chars were 're'. 

60180 If they were, replace by a ':' and set re to ignore everything 
following (see 60100). 

60190 Build line to be printed. 

60210 Flandle the semicolon when out of quotes and eliminate if 
possible. Do this by getting next byte and if the list continues 
check for a preceding string or opening quote. Finally, re-enter 
the main body of the program where appropriate. 

Initiation: RUN 60000 

60000 INPUT"PROGRAM ";F* 

60010 0PEN2,8,2,F*+",S,R" 

60020 GET#2,B*:IF UAL<B*><1 GOTO 60020 
60030 L=1 

60040 POKE 184,2:POKE 185,2:POKE 186,8:P 
0KE152,1 

60050 PRINT"ECLS]C3CD3"; 

60060 GOSUB 60090 

60070 PRINT"GOTO 60040[H0M3" 
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60880 POKE 198,2:POKE 631,13:P0KE632,13: 
END 

600P0 GET#2,A*:IF A*=CHR*<13> GOTO 60200 
60100 IF RE=1 GOTO 60090 

60105 IF A*="T" AND 0=0 AND RIGHT*(B*,4) 
="PRIN" THEN P=-l 

60106 IF A*="AND Q=0 THEN P=0 
60110 IF A*=CHR*<34> THEN GMNOTCQ) 

60120 IF A*=" H AND Q=0 GOTO 60090 
60130 IF A*=” " AND Q=-l GOTO 60190 
60140 IF A*=";“ AND Q=0 AND P=-l GOTO 60 
210 

60150 IF A*="AND Q=-l GOTO 60190 

60160 IF A*< > "M" GOTO 60190 

60170 IF MID*(B*,L-1,2)<>"RE" GOTO 60190 

60180 B*=LEFT*(B*,L-2>+":":RE=1:GOTO 600 

90 

60190 B*=B*+A*:L=L+1:GOTO 60090 
60200 PRINTB*:RETURN 

60210 GET#2,C*:IF C*= M :" THEN A*=A*+C*:L 
=L+1:P=0:GOTO 60190 

60220 IF C*=CHR*<13> THEN B*=B*+A*:GOTO 
60200 

60230 IFRIGHT*<B*,1> = "*"ORRIGHT*< B*,1)=C 
HR*(34)ORC*=CHR* < 34)THENA*=C*:GOTO60100 
60240 A*=A*+C*:L=L+1:GOTO 60190 


Conclusion 

We hope that this chapter has given you food for thought. By way of a 
project, why not write a routine to recover as much of the data as 
possible after an edit or new has been performed? 
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Introduction 

In Chapter 4 we gave listings in machine code to make use of the 
function keys. These are actioned by keywords. At the present time, 
basic will not understand these. All the functions of the utility, the 
remainder of which are in the following two chapters, require some sort 
of 'driving mechanism'. That is, routines which will not only recognize 
the keywords, but will action them. Those routines are the print tokens, 
dispatch basic chars and basic evaluation. In Chapter 3 these were fully 
discussed, so we are only supplying in this chapter the coding that is 
particular to the utility. 

To initialize the utility we need to change the addresses in certain 
locations. These fall into three categories. First, we have to change the 
vector addresses so that basic will go to our token routines; secondly, 
we need to protect the utility from being overwritten by programs and 
strings; and lastly we need to retain its operation during a Non- 
Maskable-Interrupt, that is when run/stop restore is pressed. 

There are certain subroutines which will be used by more than one 
command, so we include them in this chapter. These deal with getting 
parameters, the switching in and out of the basic rom and memory 
moving. 

That has dealt with the new, and now for the old. A few of the resident 
rom routines are useful. Many of them will be covered when describing 
our new commands. The later part of this chapter describes some more. 


Initialization 

When you start up the utility with sys 32768 these instructions will be the 
first to be actioned. They will set up and protect the utility. At the end of 
the four subroutines we return control back to you, with a screen 
message, and the utility in operation. 

ASSEMBLY LISTING 

9 *=$8880 


10 

JSR 

VECTOR 

! CHANGE BASIC VECTORS 

20 

JSR 

KEYS 

! SET KEYBOARD VECTOR 

30 

JSR 

Mil 

! SET NMI AND BRK VECTORS 
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46 

JSR MEM 

! SET TOP OF MEMORY 

50 

JMP $9208 

! CLR AND MESSAGE 

<40 VECTOR 

LDA #$09 


70 

STA $8304 

! ICRNCH LOU 

80 

LDA #$BC 


90 

STA $8386 

! IQPLOP LOU 

100 

LDA #$02 


110 

STA $0388 

! I GONE LOU 

120 

LDA #$29 


130 

STA $038A 

! IEVAL LOU 

140 

LDA #$82 


150 

STA $0385 

! ICRNCH HIGH 

1 <40 

STA $8307 

! IQPLOP HIGH 

170 

LDA #$83 


180 

STA $0309 

! IGONE HIGH 

190 

STA $030B 

! IEVAL LOU 

200 

RTS 


210 MEM 

LDA #$FF 


220 

STA $37 

! MEMSIZ LOU 

230 

STA $33 

! FRETOP LOU 

240 

LDA #$7F 


250 

STA $38 

! MEMSIZ HIGH 

2<40 

STA $34 

! FRETOP HIGH 

270 

RTS 


280 NMI 

LDA #$7E 


290 

STA $0316 

BRK LOU 

300 

LDA #$61 


310 

STA $0318 

! NMI LOU 

320 

LDA #$80 


330 

STA $8317 

! BRK HIGH 

340 

STA $0319 

! NMI HIGH 

350 

RTS 


3<40 KEYS 

SEI 


378 

LDA #$22 


388 

STA $028F 

! KEYLOG LOU 

398 

LDA #$87 


400 

STA $0290 

! KEYLOG HIGH 

410 

CLI 


420 

RTS 


425 ! NMI ROUTINE 


430 

PHA 


440 

TXA 


450 

PHA 


460 

TYA 


470 

PHA 


480 

LDA #$7F 
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490 


STA 

*DD0D ! 

CIA INTERRUPT 

CONTROL REG 

500 


LDY 

*DD0D 


510 


BPL 

PLUS 


520 


JMP 

*FE72 ! 

RESET RS232 

530 

PLUS 

JSR 

*F6BC ! 

SETS STOP AND RVS FLAG 

540 


JSR 

*FFE1 ! 

CHECK STOP KEY 

550 


BEQ 

BREAK 


560 


JMP 

$FE72 ! 

RESET RS232 

565 

! BRK 

ROUTINE 



570 

BREAK 

JSR 

*FD15 ! 

KERNAL RESET 

580 


JSR 

*FDA3 ! 

INITIALIZE I/O 

CIA CHIPS 

590 


JSR 

*E518 ! 

INITIALIZE 1/0 

600 


JSR 

KEYS 


610 


JSR 

NMI 


620 


JMP 

($A002) 



307E BREAK 3054 KEYS 

8034 MEM 8041 NMI 

3073 PLUS 800F VECTOR 

We feel that this listing up to 430 is fairly self-explanatory, especially 
with a memory map. The remaining lines are dealt with in the next 
section. 

BRK and NMI routines 

These are included in the listing of the previous section, lines 430 to 
620. When either of these are initiated, it will be to these lines they will 
come. The majority of these routines are copies of the equivalent rom 
routines, plus a couple of directions to our set up routines to keep the 
utility in service. 

NMI 

The nmi is initiated by the use of the restore key (although there are 
means to initiate it through the cartridge slot). Not only does it tell the 
microprocessor it has been actioned, but it also sets a flag in the cia#2. 
The processor will not action it immediately, but will wait until the 
present instruction is complete. The processor then saves the program 
counter and the status register on the stack. It will load the address 
stored at $fffa and $fffb into the program counter. This is normally $FF43. 
At this address it sets the interrupt flag, so that the other interrupt does 
not interfere, and then jumps to the vector address that we have 
changed. Note that the routine has so far not stored the a, x and y 
registers. 
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The nmi in the utility will end up at our routine, which is a series of 
subroutines. After saving the processor registers on the stack, it clears 
the nmi flag in the Interrupt Control Register of the cia#2 chip, which 
deals with inputs and outputs of the computer. It then loads that 
location back into y and if the nmi flag is still clear then it jumps ahead, 
missing out for the time being an RS 232 reset. The following routine 
checks the stop and rvs flags at location $91. A call to the kernal routine 
to check for stop follows. If on exit the accumulator is zero, then the 
stop was initiated and we go to the brk routine. Finally, we jump to the 
routine to reset the RS 232 locations. 

BRK 

The first subroutine resets the kernal set up vector from $0314 to $0333 to 
their default values from a list held in the kernal rom itself. This will 
reset two we have changed, the brk and nmi vectors. The following 
routine will service the two cia interface chips, by restoring them to 
their setup levels. 

The routine at $E 5 i 8 performs the remaining functions of a brk. It 
restores the output device to the screen and the input device to the 
keyboard. The video chip is next for the restoration treatment. The 
screen and character set are returned to their default positions, and 
sprite graphics turned off. After this it is the keyboard's turn, with the 
buffer, delays and set-up vector all returned to default values. The 
routine finishes off by resetting the input/output flags, clearing the 
screen, setting the colours and putting the cursor in the home 
position. 

We now put in two calls ourselves so we can reset the nmi, brk and 
keyboard vectors to those we require. Finally, there is the indirect 
jump of A002 which sets the stack pointer to its start, prints 'ready' and 
gives control back to the user. 


Routine vectors and keywords 

There is sufficient space, using the existing token system, for 51 further 
keywords. These will be split up into an area for command keywords 
and an area for function keywords. In the utility we are supplying 34 
commands and 1 function. Between the last command keyword vector 
and that of the function keyword there is space for a further nine 
commands (token values 238 to 246 ($ee-$F 6 )). Seven extra functions 
could be added within the space available. The vector table is posi¬ 
tioned at $8090 to $ 80 F 5 . 

The keyword table is exactly 255 bytes long. Out of that our 
keywords use up 155 plus a zero byte to mark the end of the table. The 
amount of space available to you if wish to extend it is 58 bytes for 
command keywords and 41 bytes for functions. Remember that the last 
letter of each word has $80 (128) added to it. In our table, the space 
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between our last command, 

troff, and the only function, deek, has 

been fillec 

with bytes $; 

>a and sea to make 

up the nine unused token 

values. 









MEMORY DUMP 








8090 

98 

87 

4C 

86 

B2 

83 

9F 

84". 


8098 

EB 

84 

36 

85 

BE 

85 

14 

84". 


80A0 

51 

83 

A6 

83 

AE 

8F 

B4 

8F". 


80A8 

80 

83 

AC 

83 

51 

8E 

C4 

89". 


80B0 

43 

8F 

A6 

87 

92 

8B 

2D 

84". 


80B8 

D1 

8F 

3A 

A9 

D1 

A8 

30 

86". 


80C0 

B6 

91 

39 

8D 

10 

86 

B5 

92". 


80C8 

8C 

91 

80 

91 

4D 

90 

FB 

85". 


80D0 

6E 

88 

60 

8D 

FF 

FF 

FF 

FF". 


80D8 

00 

FF 

FF 

FF 

F6 

FF 

B6 

F7". 


80E0 

00 

60 

00 

00 

D6 

83 

D6 

83". 


80E8 

00 

00 

00 

68 

00 

00 

00 

40". 


80F0 

00 

00 

00 

40 

00 

40 

4F 

46".OF 


80F8 

C6 

4B 

45 

D9 

44 

4F 

4B 

C5" -f KEyDOKe 


8100 

54 

45 

CE 

54 

57 

CF 

48 

45"TEnTWoHE 


8108 

D8 

42 

49 

CE 

4F 

4C 

C4 

43"xBInOLdC 


8110 

4F 

4C 

4F 

55 

D2 

57 

52 

49"OLOUrWRI 


8118 

54 

C5 

43 

47 

4F 

54 

CF 

43"TeCG0ToC 


8120 

47 

4F 

53 

55 

C2 

50 

4C 

4F"GOSUbPLO 


8128 

D4 

45 

4E 

54 

45 

D2 

44 

55"tENTErDU 


8130 

4D 

D0 

52 

45 

4E 

55 

CD 

44"lip RENUmD 


8138 

45 

4C 

45 

54 

C'5 

4D 

45 

52"ELETeMER 


8140 

47 

C5 

43 

4F 

44 

45 

D2 

41"GeCODErA 


8148 

55 

54 

CF 

50 

52 

4F 

C3 

44"UT oPROcD 


8150 

50 

52 

4F 

C3 

45 

50 

52 

4F"PROcEPRO 


8158 

C3 

50 

4F 

D0 

51 

55 

49 

D4"cPOpQUIt 


8160 

54 

52 

41 

43 

C5 

52 

45 

53"TRACeRES 


8168 

45 

D4 

43 

48 

41 

49 

CE 

4C"EtCHAInL 


8170 

4F 

4D 

45 

CD 

48 

49 

4D 

45"OMEmHIME 


8178 

CD 

49 

4E 

4B 

45 

59 

A4 

4D"mINKEY M 


8180 

45 

CD 

41 

50 

50 

45 

4E 

C4"EmAPPENd 


8188 

54 

52 

4F 

46 

C6 

5A 

5A 

5A"TR0F-fZZZ 


8190 

5A 

5A 

EA 

5A 

5A 

5A 

5A 

5A"ZZ.ZZZZZ 


8198 

5A 

EA 

5A 

5A 

5A 

5A 

5A 

5A"Z.ZZZZZZ 


81A0 

5A 

EA 

5A 

5A 

5A 

5A 

EA 

5A'Z.ZZZZ.Z 


81A8 

5A 

5A 

5A 

EA 

5A 

5A 

5A 

5A"ZZZ.ZZZZ 


81 B0 

EA 

5A 

5A 

5A 

5A 

5A 

5A 

EA".ZZZZZZ. 


81 B8 

5A 

5A 

5A 

5A 

5A 

EA 

5A 

5A"ZZZZZ.ZZ 


81C0 

5A 

5A 

5A 

5A 

5A 

5A 

EA 

44"ZZZZZZ.D 


81 C8 

45 

45 

CB 

00 

FF 

FF 

FF 

FF"EEk. 
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.:81D0 FF FF FF FF FF FF FD FF'. 

.:8108 FF FF FF FF FF 7F FF FF'. 

.:81E0 00 00 00 00 00 00 00 00". 

• :81E8 00 00 00 08 01 00 00 00'. 

.:81F0 00 00 00 00 00 20 8A AD'_ 

This has been produced in upper case mode and as such the end 
shifted letter of each command is printed in lower case. If putting it 
into your computer in a way other than the dump, remember that they 
are shifted. The last letter in location $8i7E is a shifted $, giving the 
keyword inkeys. 


Getting parameters and controlling BASIC 
ASSEMBLY LISTING 
9 *=481F5 


10 

JSR *AD8A 

! GET INPUT 

20 

JMP *B7F7 

! CHECK AND TRANSFER 

30 

LDA *01 

! 6510 I/O PORT 

40 

AND #*FE 

! TURN OFF BIT 0 

50 

STA *01 

! BASIC OFF 

60 

RTS 


70 

LDA *01 


80 

ORA #*01 

! SET BIT 0 

90 

STA *01 

! BASIC ON 

100 

RTS 


Parameters 

Lines 10 and 20 hold the only two 

instructions that we need to incor- 

porate, but they do 

a lot of work 

in getting our numeric parameters 

Let us look at the instructions one at a time. 


JSR $AD8A 

The first action of this is to call the evaluate expression routine at $AD9E. 

This is a complex routine which deals not only with numeric data, 
but also with strings. After setting the chrcet pointer back one place, it 
proceeds to start picking up data after the command keyword. It will 
then go through checking to see whether a mathematical operator or a 
function keyword (such as peek), a variable or simply a number has 
been obtained. From the information obtained it will (after calculating 
if necessary) store the result or findings in the fac#i. For numbers up to 
$ffff, the relevant numbers will be in locations $64 and $65 of this 
accumulator. 

We now return to our original subroutine at sadba, where we check 
to see if the data received was numeric or not. The evaluate expression 
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will set a flag in the zero page location sod. The value of $FF indicates 
string data, whilst zero designates numeric data. If this subroutine 
finds the former, a 'type mismatch' error is generated and the com¬ 
mand, and program, is terminated. 

JMP $B7F7 

We have our numeric parameter. This routine will do two checks and 
then transfer our data. The checks are to make sure that neither a 
negative number nor one over 65535 (Sffffi was given. In either case, 
failure will result in the 'illegal quantity' error. The data is now transfer¬ 
red from $64 and $65 to locations $14 and $is. The reason for this is that 
the fac#i is used for many applications. The rts at the end of this 
routine will return us to the place that called our complete get para¬ 
meters routine, that will most likely be a command routine. 

The basic switch 

As we said, when dealing with the function keys, the area of ram under 
the basic ROM is a useful place for hiding data, or indeed routines which 
do not use the basic interpreter. To use this area, basic must be 
'removed'. We have no trouble writing to the ram as the computer, 
through its decoding logic, will select it when the processor sends a 
write signal. When reading, the ROM has priority unless we tell the 
electronics that it is not there. The main difference between the 6510 
processor in the 64 and the normal 6502 is that the former has input/ 
output ports. The user can control these using locations $0000 and $ 0001 . 
The first deals with the direction of the data, that is, whether the ports, 
of which there are six, are going to be input or output. The second 
location deals with the data itself, one bit for each port, either a one or 
a zero which gives a switching mode. Three of the ports are connected 
to the cassette port. The other three control three roms: basic, kernal 
and the Character rom. A zero will switch all of these off. The one we 
are concerned with, basic, uses bit 0 of the data register and so by 
changing this bit, making sure not to disturb the others, we can 
remove or replace as required. 

Lines 30 to 60 perform the switching-out of basic. We load the 
register and set bit 0 to zero. The and instruction will do this without 
changing any other bit. After placing the result back, the rom is no 
longer present as far as the computer is concerned. 

Lines 70 to 100 reverse the process by using the ora code which will 
only affect the bits according to the data with the instruction. 

To switch off BASIC - JSR $81FB 

To switch in BASIC - JSR $8202 

Dealing with the keywords 

In Chapter 3 the routines that basic: uses to deal with keywords and 
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tokens were fully described. Below are the listings to use with the 

utility, which require no further explanation. 

ASSEMBLY LISTING - CRUNCH TOKENS 


9 #=$8209 


10 

LDX $7A 

20 

LDY #$04 

30 

STY $0F 

40 ANOTHER 

LDA $0200,X 

50 

BPL SPACE 

60 

CMP #$FF 

70 

BEQ STORE 

80 

I NX 

90 

BNE ANOTHER 

100 SPACE 

CMP #$20 

110 

BNE STORE 

120 

STA $08 

130 

CMP #$22 

140 

BEQ QUOTE 

150 

BIT $0F 

160 

BUS STORE 

170 

CMP #$3F 

180 

BNE NUMBER 

190 

LDA #$99 

200 

BNE STORE 

210 NUMBER 

CMP #$30 

220 

BCC CONT 

230 

CMP #$3C 

240 

BCC STORE 

250 CONT 

STY $71 

260 

LDY #$00 

270 

STY $0B 

280 

DEY 

290 

STX $7A 

300 

DEX 

310 NEXTLETTER 

I NY 

320 

I NX 

330 CONTI 

LDA $0200,X 

340 

SEC 

350 

SBC $A09E,Y 

360 

BEQ NEXTLETTER 

370 

CMP #$80 

380 

BNE NEXTUORD 

390 STOREA 

ORA $0B 

400 FOUND 

LDY $71 


410 STORE 

I NX 

420 

I NY 

430 

STA $01FB,Y 

440 

LDA $01FB,Y 

450 

BEQ EXIT 

460 

SEC 

470 

SBC #$3A 

480 

BEQ COLON 

490 

CMP #$49 

500 

BNE DATA 

510 COLON 

STA $0F 

520 DATA 

SEC 

530 

SBC #$55 

540 

BNE ANOTHER 

550 

STA $08 

560 

LDA $0200,X 

570 LINE 

BEQ STORE 

580 

CMP $08 

590 

BEQ STORE 

600 QUOTE 

I NY 

610 

STA $01FB,Y 

620 

I NX 

630 

BNE LINE 

640 NEXTUORD 

LDX $7A 

650 

INC $0B 

660 FIND 

I NY 

670 

LDA $A09D,Y 

680 

BPL FIND 

690 

LDA $A09E,Y 

700 

BNE CONTI 

710 

LDY #$FF 

720 

DEX 

730 NEXT 

I NY 

740 

I NX 

750 NEXTB 

LDA $0280,X 

760 

SEC 

770 

SBC $80F6,Y 

780 

BEQ NEXT 

790 

CMP #$80 

800 

BNE NEXTNEW 

810 

BEQ STOREA 
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870 

LDA $88F6,Y 

820 

NEXTNEW 

LDX 

$7A 

880 

BNE NEXTB 

838 


INC 

$0B 

890 

LDA $0200,X 

848 

NEXTA 

I NY 


900 

BPL FOUND 

850 


LDA 

$80F5,Y 

910 EXIT 

JMP $A60? 

868 


BPL 

NEXTA 


820F 

823? 

826B 

8286 

8275 

82A? 

8243 

8282 

8278 

8256 


ANOTHER 

CONT 

DATA 

FIND 

LINE 

NEXTA 

NEXTLETTER 

NEXTWORD 

QUOTE 

STORE 


8269 COLON 
8245 CONTI 
8289 EXIT 
8254 FOUND 
8294 NEXT 
8296 NEXTB 
82A5 NEXTNEW 
3231 NUMBER 
821B SPACE 
8252 STOREA 


ASSEMBLY LISTING - PRINT TOKENS 


9 *=$82BC 
18 
20 
38 
40 
58 
60 
70 
80 
98 
100 
110 
120 
130 
140 
150 

160 CBMTOKEN 
170 
188 
190 
200 
218 
220 

230 START 
240 

258 NEXTWORD 


BPL R0M1 
CMP #$FF 
BEQ R0M1 
BIT $0F 
BMI ROM1 
CMP #$CC 
BCC CBMTOKEN 
SEC 

SBC #$CB 
TAX 

LDA #$F6 
STA $22 
LDA #$80 
STA $23 
BNE START 
SEC 

SBC #$7F 
TAX 

LDA #$9E 
STA $22 
LDA #$A0 
STA $23 
STY $49 
LDY #$FF 
DEX 
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240 

BEQ 

WORDFOUND 

270 NEXTCHAR 

I NY 


280 

LDA 

($22),Y 

290 

BPL 

NEXTCHAR 

300 

BMI 

NEXTWORD 

310 WORDFOUND 

INY 


328 

LDA 

($22),Y 

330 

BMI 

R0M2 

340 

JSR 

$AB47 

350 

BNE 

WORDFOUND 

340 R0M1 

JMP 

$A4F3 

370 R0M2 

JMP 

$A4EF 

82D8 CBMTOKEN 

82EB NEXTCHAR 

82E8 NEXTUIORD 

82FC R0M1 

82FF R0M2 

82E4 START 


82F2 WORDFOUND 

ASSEMBLY LISTING - DISPATCH AND EVALUATION 


9 #=$8302 
18 
20 
30 
40 
50 
48 
70 

80 DISPATCH 
90 
100 
110 
120 
130 
140 
150 
140 

170 R0M3 
180 
190 
200 
210 
220 
230 
248 


JSR 

$0073 

CMP 

#$CC 

BCC 

R0M3 

CMP 

#$EE 

BCS 

RGM3 

JSR 

DISPATCH 

JMP 

$A7EA 

SEC 


SBC 

#$CC 

ASL 

A 

TAY 


LDA 

8091,Y 

PHA 


LDA 

$8090 ,Y 

PHA 


JMP 

$0073 

JSR 

$0079 

JMP 

$A7E7 

LDA 

#$00 

STA 

$0D 

JSR 

$0073 

CMP 

#$F7 

BCC 

R0M4 

CMP 

#$F8 
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250 

260 

278 

280 DI SPATCHI 
290 

309 

310 
320 
330 
340 
350 
360 

370 R0M4 
380 


BCS R0M4 

JSR D1SPATCH1 

RTS 

SEC 

SBC #$F6 
ASL A 
TAY 

LDA $80E5,Y 
PHA 

LDA $80E4,Y 
PHA 

JMP $0073 
JSR $0079 
JMP $AE8D 


8313 DISPATCH 
8323 R0M3 


833C DISPATCH1 
834C ROM4 


The start up message 

This is the final subroutine called during the initialization of the utility. 
It performs a clr, to set all the variable addresses, changes the screen 
and text colours, and finally puts a message on the screen indicating 
that the utility is in operation. 

ASSEMBLY LISTING 

9 *=$9200 


10 

JSR $A663 

! CLR 

20 

LDA #$93 

! CLEAR SCREEN 

30 

JSR $FFD2 


40 

LDA #$00 

! SET COLOURS TO BLACK 

50 

STA $D020 

' BORDER 

60 

STA $D021 

1 BACKGROUND 

70 

LDA #$05 


80 

STA 0286 

! GREEN TEXT 

90 

LDX #$0A 


100 

LDY #$09 


110 

JSR STARS 


120 

LDX #$0C 


130 

LDY #$09 


140 

CLC 
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150 

JSR $FFF0 

! SET CURSOR 

160 

LDX #*15 

! CHARS TO PRINT 

178 CONT 

LDA DATA,X 


180 

JSR *FFD2 

! PRINT 

190 

DEX 


200 

BPL CONT 

! NOT FINISHED 

210 

LDX #*0E 


220 

LDY #*09 


230 

JSR STARS 


240 

STA *05C1 

i FILL IN MISSING CHARS 

250 

STA *0611 


260 

STA *05D6 


270 

STA *0626 


280 

LDA #*05 

! COLOUR MAP 'JALUE 

290 

STA *D9C1 


300 

STA *DA11 


310 

STA *D9D6 


320 

STA *DA26 


330 

LDA #*0D 

! PRINT RETURN 

340 

JSR *FFD2 


350 

JMP *A474 

1 READY FOR BASIC 

360 STARS 

CLC 


370 

JSR *FFF0 

1 SET CURSOR 

380 

LDA #*2A 

! ASCII FOR * 

390 

LDX #*16 

! NUMBER TO PRINT 

400 NEXT 

JSR *FFD2 


410 

DEX 


420 

BNE NEXT 


430 

RTS 


440 DATA 

TXT "* YTILITU CISAB NAP *• 


9226 CONT 9267 DATA 

9260 NEXT 9258 STARS 

Memory moving 

RENUMber and coder, described in Chapter 7, both require some 
manipulation of memory in the form of either gaining space or 
removing unnecessary bytes. This section deals with the two sub¬ 
routines, close and open, which perform these operations, close is 
self-contained whilst open uses a rom routine for the actual moving of 
memory. In the basic interpreter there are routines to both open and 
close up a basic program, used when you insert or delete lines, but we 
can only really use the opening routine. It is a subroutine on its own 
whereas the closing-up is integral with the inputting of a basic line. We 
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have written coding that is virtually identical to the one in rom as it is 
efficient enough. 

Having moved the program about, all the link addresses, from the 
line the move started, will now be wrong by the amount of the move. 
There is a subroutine in the interpreter which changes the link 
addresses but we have not used it. The reason for this is one of speed 
as during the course of using coder or renum, these subroutines may 
be called several times and would prove to be very slow. 

The rom routine for rechaining the lines goes through the whole 
program, byte by byte, to calculate the link addresses and store them. 
It has been done this way as it is a multi-purpose routine, catering for 
the lengthening and shortening of code. What we have done is to write 
separate routines for each direction of movement and place them 
immediately after the moving instructions. These will only rechain 
from the program line in which the alteration occurred. In addition, we 
only need to look at the link addressess as we know by how much they 
have changed so we can subtract or add as required. 

To set the scene, as they say, here are the locations that need to be 
set before calling these subroutines: 

$FB and $FC- The address of the start of the current basic line. 

$49_ The number of the current position on that line. This will 

be where the replacement code will start. 

$FD and SFE- The address of the next basic line, that is, the link 
address of the line in $FB and $FC. 

$3E- The number of bytes in the original code to changed, 

register- The number of bytes in the replacement code. 

ASSEMBLY LISTING 


9 «=$888B 


16 

STX $C2 

20 

LDA $3E 

30 

SEC 

40 

SBC $C2 

50 

STA $BB 

60 

CLC 

70 

LDA $FB 

80 

ADC $49 

90 

STA $5F 

100 

LDA $FC 

110 

ADC #$00 

128 

STA $60 

130 

LDA $5F 


! FIND HOW MANY 
BYTES TO REMOVE 


! FIND START OF 
BLOCK TO MOVE 
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140 

ADC $BB 


158 

STA $5A 

! START + AMOUNT OF 



REDUCTION 

160 

LDA $60 


170 

ADC #$00 


186 

STA $5B 


190 

LDA $2D 

! END OF PROG 

200 

SEC 


210 

SBC $5A 

! CALCULATE TOTAL 



AMOUNT TO MOVE 

220 

STA $58 


230 

TAY 

! NO OF BYTES OF 



INCOMPLETE PAGE 

240 

LDA $2E 


250 

SBC $5B 


260 

TAX 

! NO OF PAGES TO 



MOVE 

270 

I NX 

! FOR EASIER CHECKING 

280 

TYA 


290 

BEQ PAGE 

! NO SEPARATE BYTES 

300 

LDA $5A 

! MOVE SEPARATE 



BYTES FIRST 

310 

CLC 


320 

ADC $58 


330 

STA $5A 


340 

BCC NOINC 


350 

INC $5B 


360 

CLC 


378 NOINC 

LDA $5F 


380 

ADC $58 


390 

STA $5F 


400 

BCC NOINCA 


410 

INC $60 


420 N01NCA 

TYA 


430 

EOR #$FF 


440 

TAY 


450 

I NY 


460 

DEC $5B 


470 

DEC $60 


480 PAGE 

LDA ($5A),Y 


490 

STA <$5F),Y 


500 

I NY 


510 

BNE PAGE 


520 

INC $5B 


530 

INC $60 


540 

DEX 

! POINTER - COMPLETION 
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550 

BNE 

PAGE 



568 

SEC 




570 

LDA 

$2D 


! SET END OF PROG 

580 

SBC 

$BB 



598 

STA 

$2D 



600 

BCS 

RECHAIN 


610 

DEC 

$2E 



620 

SEC 




630 RECHAIN 

LDY 

#$00 



640 

LDA 

$FD 


1 GET LINK 

650 

SBC 

$BB 


1 CALC NEW ADDRESS 

660 

STA 

$FD 



670 

STA 

<$FB> 

,Y 

! STORE IN LINE 

680 

STA 

$57 



690 

LDA 

$FE 



700 

SBC 

#$00 



710 

I NY 




720 

STA 

$FE 



730 

STA 

$53 



740 

STA 

($FB) 

,Y 


750 NEXT1 

DEY 




760 

LDA 

<$57) 

,Y 

! GET LINKS 

770 

STA 

$B9 


! STORE THEM 

780 

INY 




790 

LDA 

($57) 

>Y 


800 

STA 

$BA 



810 

BEQ 

EXIT 


! COMPLETED RECHAINING 

320 

DEY 




830 

SEC 




340 

LDA 

$B9 



850 

SBC 

$BB 


! CALC NEW LINK ADDS 

860 

TAX 



! TEMP STORE 

870 

STA 

($57) 

> Y 


380 

LDA 

$BA 



890 

SBC 

#$00 



900 

INY 




910 

STA 

($57) 

> Y 


920 

STA 

$58 



930 

TXA 




940 

STA 

$57 



950 

JMP 

NEXT1 


! GET NEXT LINE 

960 EXIT 

RTS 




970 

TXA 




980 

SEC 




990 

SBC 

& 

CO 

m 


! CALCULATE NO OF 


SPACES REQUIRED 
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1000 

STA $BB 


1010 

CLC 


1020 

LDA $49 


1030 

ADC: $BB 


1040 

BCS ERROR 

! >255 CHARS IN LINE 

1050 

CMP $FE 


1060 

BCC CONT 

! ONLY 254 ALLOWED 
-NEED END MARKER 

1070 ERROR 

LDX #$17 


1080 

JMP $A437 

! ERROR STRING TOO LONG 

1090 CONT 

LDA $2D 


1100 

ADC $BB 

! ENOUGH MEMORY? 

1110 

TAX 


1120 

LDA $2E 


1130 

ADC #$00 


1140 

CMP $38 


1150 

BNE CONT2 

! ENOUGH MEMORY 

1160 

CPX $37 


1170 

BCC C0NT2 


1180 

JMP $A435 

! ERROR OUT OF MEMORY 

1190 C0NT2 

CLC 


1200 

LDA $2D 

! SET ADDS FOR MOVE 

1218 

STA $5A 


1220 

ADC $BB 


1230 

STA $58 


1240 

LDA $2E 


1250 

STA $5B 


1260 

ADC #$00 


1270 

STA $59 


1280 

LDA $FB 


1290 

ADC $49 


1300 

STA $5F 


1310 

LDA $FC 


1320 

ADC #$00 


1330 

STA $60 


1340 

JSR $A3BF 

! ROM ROUTINE TO 

OPEN UP MEMORY 

1350 

CLC 


1360 

LDY #$80 


1370 

LDA $2D 

! SET NEW END OF PROG 

1380 

ADC $BB 


1390 

STA $2D 


1400 

BCC C0NT3 


1410 

INC $2E 


1420 

CLC 


1430 C0NT3 

LDA $FD 
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1440 


ADC $BB 



1450 


STA $FD 



1460 


STA $57 



1470 


STA ($FB) 

,Y 


1480 


LDA $FE 



1498 


ADC #$00 



1500 


I NY 



1510 


STA $FE 



1520 


STA $58 



1530 


STA <$FB) 

,Y 


1540 

NEXT3 

DEY 



1550 


LDA ($57) 

>Y 


1560 


STA $89 



1570 


I NY 



1580 


LDA ($57) 

,Y 


1590 


STA $BA 



1600 


BEQ EXIT2 



1610 


DEY 



1620 


CLC 



1630 


LDA $B9 



1640 


ADC $BB 



1650 


TAX 



1660 


STA ($57) 

,Y 


1670 


LDA $BA 



1680 


ADC #$06 



1690 


I NY 



1700 


STA ($57) 

»Y 


1710 


STA $58 



1720 


TXA 



1730 


STA $57 



1740 


JMP NEXT3 



1750 

EXIT2 

RTS 



CONT 

8949 

CONT 2 


895D 

C0NT3 

898B 

ERROR 


8944 

EXIT 

892F 

EXIT2 


89C4 

NEXT 1 

890E 

NEXT3 


89A0 

NO INC 

88CA 

NOINCA 


88D4 

PAGE 

88DD 

RECHAIN 


88F7 


CLOSE ROUTINE 

LINES 10-270: Before we can move a block of memory, we have to 
determine three values: the start address of the block to move, the 
new start address and the amount of code to move. The first thing we 
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work out is the number of redundant bytes. This is done, obviously, by 
subtracting from the original amount of data to be changed the 
number of bytes of the replacement code. The resultant value is stored 
in location $bb. We shall need this number later for rechaining the 
lines. The new start of the block will be obtained by adding the line 
pointer, $49, to the address of the current basic line. To this value is 
added the contents of $bb which will give us the location of the first 
byte in the block to be moved. 

To get the amount of data to be moved, the result of the last 
calculation is taken away from the end of program address, held in $ 2 D 
and $2E. The answer will be held in the processor registers, the high 
byte in the x and the low in the v. A page of memory is 256 bytes so the 
x register is therefore the number of pages to be moved, increased by 
one for easier checking on completion. We move a complete page and 
then decrease x. x will be zero when all done, checking immediately 
after decreasing. To summarize, we have found the amount to move, 
its current start and its destination. 

LINES 280-470: This is the hardest part of the routine to follow, and we 
hope that we succeed in explaining it clearly. 

We transfer the y register to the accumulator. To recap briefly, this 
will be the number of bytes, other than complete pages, of memory to 
move. If the value now in the accumulator is zero, only complete pages 
require moving, so we skip this section completely. In closing up 
memory we start from the low addresses, move them, and work to the 
higher end addresses. We do this by setting the address of the page 
and moving it up, using the y register as a pointer. If we have an odd 
number of bytes to start with, this causes a slight problem. For 
example, if we have $10 bytes and the y is set thus we would move 246 
bytes by increasing y. To compensate for this, what we do is to pro¬ 
duce the 2's complement of the value. This is done in lines 430 to 450. 
The eor #$ff will change all the bits set to one to zero and vice versa. 
One is then added. So instead of $10, we should now have $fo. This 
means that if we now increase y from $F 0 until it becomes zero it will 
have been incremented $10 times. 

For the same reasons we have to alter the address of the start of the 
block and its new start address. We add to these the original number of 
odd bytes, held in $58. Finally, we decrease the high byte of the address 
by one. The next effect of these changes is a stalemate as the locations 
along with the y pointer value are equivalent to the original values but 
now allow us to increase y the required amount. 

LINES 480-550: Having set all the values we move the data, byte by 
byte, until both x and y registers are zero. We simply load a byte from 
its position and store its new lower location. 

LINES 560-620: The end of the basic program will now be shorter by 
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the value of location $bb. The original end address is adjusted and 
reset. 

LINES 630-960: All that remains is to change the values of the link 
addresses from the current basic line onwards. First, we change the 
links in the current line and as these are also held in $fd and $fe, used 
by the calling routine, we change these also. 

We proceed through the lines gathering the addresses, subtracting 
the value in $bb, and then we restore them. The end of the program is 
indicated when the msb of a link address is zero. Finally, we return to 
the calling program, such as coder. 

OPEN ROUTINE 

LINES 970-1080: We calculate the space required by subtracting the 
value in $3E, the length of the old code, from the value in the x register, 
the length of the new code, and store the result in $bb. 

As a basic line may not exceed 255 bytes (to allow for a zero at the 
end making a maximum of 256), we check this by adding the line 
marker to the $bb value. A set carry flag will mean the maximum has 
been exceeded. We then check that there will be room for the end of 
line zero. Failure of either of these will generate the syntax error 'string 
TOO LONG'. 

LINES 1090-1180: As we are creating space we must check that there is 
sufficient room available in the basic program area. These lines do just 
that by checking that we will not exceed the values in $37 and $38, which 
indicate its limit. If we do go over, we call a basic routine to generate 
the 'out of memory' error message. 

LINES 1190-1340: Next on the agenda is to set the registers for the 
interpreter's OPEN-up memory routine at $A3BF. On leaving this routine: 
$5A and $5B - This will hold the address of the end of the block to move. 
It will be the same as the end of program address before the move. 

$58 and $59 - These registers will hold the address of the end of the new 
block. It will also be the end of the basic program after the move. It is 
arrived at by adding the amount of move to the address in $5A and $5B. 

$5F and $60 - The start of the block to move. These hold the location of 
the first byte of the code to be changed. It is calculated by adding the 
line marker to the address of the current basic line to be processed. 

LINES 1360-1420: Now that the data has been moved, we reset the end 
of program address to its new value. 

LINES 1430-1750: A replica of the rechaining in lines 630 to 960, except 
that here we increase the addresses instead of reducing them. 

This concludes the new routines that we planned to introduce in this 
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chapter. The remainder are descriptions of some of the rom routines 
we use (and hope that you will come to use). 

RECHAINING THE LINES 


During our memory move routine, we did not use the rom routine to 
rechain the link addresses because for our purposes it was inefficient 
due to the number of calls required. However, we do use the sub¬ 
routine, in delete for instance, where only one call is required. It serves 
another purpose in that from the addresses it exits with, one can 
calculate and set the end of program/start of variable registers. 


ROM LISTING 

A533 A5 2B 
A535 A4 2C 
A537 85 22 
A539 84 23 
A53B 18 
A53C A0 01 
A53E B1 22 
A540 F0 ID 
A542 A0 04 
A544 C8 
A545 B1 22 
A547 D0 FB 
A549 C8 
A54A 98 
A54B 65 22 
A54D AA 
A54E A0 08 
A550 91 22 
A552 A5 23 
A554 69 00 
A556 C8 
A557 91 22 
A559 36 22 
A55B 85 23 
A55D 90 DD 
A55F 60 


LDA *2B 
LDY *2C 
STA *22 
STY *23 
CLC 

LDY #*01 
LDA <*22),Y 
BEQ *A55F 
LDY #*04 
I NY 

LDA <*22),Y 
BNE *A544 
I NY 
TYA 

ADC *22 
TAX 

LDY #*00 
STA <*22>,Y 
LDA *23 
ADC #*00 
I NY 

STA <*22),Y 
STX *22 
STA *23 
BCC *A53C 
RTS 


The routine commences by getting the program start address and 
placing it in registers for its own use. The carry flag is cleared for 
addition. The first byte of a line that it picks up is the high byte of the 
link address and it tests for the end of the program (a zero). The y 
register is loaded again so as to skip the addresses and line number. It 
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now proceeds through the line, searching for the end of line zero 
marker. When this is discovered, the y register will contain one less 
than the number of bytes in the complete line. This is immediately 
rectified by incrementing y by one. This value is added to the line start 
address and placed as the link address of the line. As this is also the 
address of the next line, it is loaded into the locations used by the 
routine. The flow now branches back, (the carry flag will be clear), to 
process the next line. Every basic line will be processed until the end of 
the program. 

On exiting, the program locations $22 and $23 will hold the address of 
the two end zero bytes. If this address is increased by two then the end 
of program address can be derived, and hence the start of variables, as 
they are one and the same thing vartab. 


Opening up memory 

In our memory move routine we made use of a rom routine when we 
required more space in a basic program. It will move a block up in 
memory even if its new start is within the original block. Six locations 
have to be set before entering the routine, which are, in low/high byte 
order: 

$5A and $5B- End address of present block 
$5F and $60- Start address of present block 
$58 and $59- End address of the new block 

ROM LISTING 


A3BF 

38 


SEC 


A3C0 

A5 

5A 

LDA 

*5A 

A3C2 

E5 

5F 

SBC 

*5F 

A3C4 

85 

22 

STA 

*22 

A3C6 

A8 


TAY 


A3C? 

A5 

5B 

LDA 

*5B 

A3C? 

E5 

60 

SBC 

*60 

A3CB 

AA 


TAX 


A3CC 

E8 


I NX 


A3CD 

98 


TYA 


A3CE 

F0 

23 

BEQ 

*A3F3 

A3D0 

A5 

5A 

LDA 

*5A 

A3D2 

38 


SEC 


A3D3 

E5 

22 

SBC 

*22 

A3D5 

85 

5A 

STA 

*5A 

A3D7 

B0 

03 

BCS 

*A3DC 

A3D9 

C6 

5B 

DEC 

CCi 

in 

* 

A3DB 

38 


SEC 




Routines old and new 141 


A3DC 

A5 

58 

A3DE 

E5 

22 

A3E6 

85 

58 

A3E2 

B0 

08 

A3E4 

C 6 

59 

A3E6 

90 

04 

A3E8 

B1 

5A 

A3EA 

91 

58 

A3EC 

88 


A3ED 

D0 

F9 

A3EF 

B1 

5A 

A3F1 

91 

58 

A3F3 

C 6 

5B 

A3F5 

C 6 

59 

A3F7 

CA 


A3F8 

D0 

F2 

A3FA 

6% 



LDA $58 
SBC $22 
STA $58 
BCS $A3EC 
DEC $5? 

BCC $A3EC 
LDA <$5A),Y 
STA ($58) ,Y 
DEY 

BNE $A3E8 
LDA ($5A),Y 
STA ($58),Y 
DEC $5B 
DEC $5? 

DEX 

BNE $A3EC 
RTS 


The immediate action is to calculate the number of bytes to move. The 
number of low bytes is placed in the y register and location $22. The 
number of pages to move, the difference of the high bytes, is placed in 
the x register and immediately increased by one. This will be the 
counter where the zero state is checked to determine completion. As it 
is decreased before being checked, increasing by one will ensure that 
all pages will be done. If x was zero and was not incremented, then you 
would end up going around the circuit 256 times before a zero was 
discovered in the x register. 

The low byte result is checked again; if there is no value, then a large 
chunk of instructions can be skipped. The bytes between addresses 
SA3D0 and $A3E7 deal with cases where there is an element of an incom¬ 
plete page of data to move. These lines reduce the two end addresses 
by the number of low bytes to move. This will not effect the move as 
the data is loaded and stored with respect to y and this has the number 
that was the reduction. The incomplete page is moved first. 

Except when y is zero, all the bytes are transferred within addresses 
$A3E8 and $A3EE. The y register will start at a high value and be decre¬ 
mented to zero. When that is reached, the next bytes are moved 
separately, before the high addresses are decreased. After this has 
been achieved, the x counter is reduced and checked, and if it is not 
zero, it's back to move the next page of data. 

From this it can be seen that the transfer is done by taking the high 
addresses and moving them first. This means that the program will not 
overwrite itself. 
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Find a line 

This routine finds the start address of a basic line, given the line 
number. We shall use it in our RENUMber and delete. It uses all three 
processor registers and locations $sf and $60. On top of that the entry 
requirement is the line number in low/high byte form in locations $14 
and $ 15 . 


ROM LISTING 


A61 3 

A5 

2B 

LDA 

$2B 

A615 

A6 

20 

LDX 

$20 

A61 7 

A0 

01 

LDY 

#$01 

A619 

85 

5F 

STA 

$5F 

A61B 

86 

60 

STX 

$60 

A61D 

B1 

5F 

LDA 

($5F),Y 

A61F 

F0 

IF 

BEQ 

$A640 

A621 

08 


I NY 


A622 

C8 


I NY 


A623 

A5 

15 

LDA 

$15 

A625 

D1 

5F 

CMP 

<$5F),Y 

A627 

90 

18 

BOO 

$A641 

A629 

F0 

03 

BEQ 

$A62E 

A62B 

88 


DEY 


A62C 

D0 

89 

BNE 

$A637 

A62E 

A5 

14 

LDA 

$14 

A630 

38 


DEY 


A631 

D1 

5F 

CMP 

($5F),Y 

A633 

90 

00 

BCC 

$A641 

A635 

F0 

0A 

BEQ 

$A641 

A637 

88 


DEY 


A638 

B1 

5F 

LDA 

($5F),Y 

A63A 

AA 


TAX 


A63B 

88 


DEY 


A63C 

B1 

5F 

LDA 

<$5F),Y 

A63E 

B0 

D7 

BOS 

$A617 

A640 

18 


CLC 


A641 

68 


RTS 



Locations $sf and $6@ are loaded with the start of basic. The high link 
address is again picked up first to see if the end of program has been 
reached. The high byte of the line number is checked first. If the value 
is greater than the required value, the carry will clear and the sub¬ 
routine is left. If the two values are the same, we go forward to test the 
low byte values. Failure of either of these checks means that we have 
not reached the required line and have to go ahead and get the address 
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of the next line. When the low bytes are checked if they are equal, or 
the carry flag clear, the routine is terminated. On failing to find the 
desired line, or on finding a higher one, the link addresses are gath¬ 
ered in and we branch back to check the next line. 

Due to the way the checks are made, the routine can be left in one of 
two states. In the first, the exact line number has been found, in which 
case the address in $sf and $60 will be what you require. The second 
state will be that there is no such line number and the routine returns 
the address of the next highest line. These conditions can be tested in 
the calling routine by examining the carry flag on return. If the carry is 
set then the actual line number was found, and if clear it was not. 




7 Programming 
aid routines 


Introduction 

In Chapter 5 we gave routines to help in the preparation and editing of 
basic programs. These routines were themselves in basic, so were slow 
and had to be tagged onto the end of the resident program. This 
chapter not only puts these routines into 6502 machine code, but also 
extends their capabilities. In addition the following are included: old, 

RENUM, DELETE, MERGE, APPEND, DUMP, TRACE, CODER, HEX, BIN, TEN, TWO, AUTO, 
and MEM. 

Our object has been to show you that with a little thought and 
perseverance, adding new basic commands is well within your grasp. 
Most of the routines start with an explanation of what we wish to 
achieve and how it is possible to do it. This is followed by the assembly 
listing and the label addresses used. These are provided for assemblers 
which do not allow the use of labels (Supermon) and with relocation in 
mind. Finally, a byte-by-byte explanation of the routine is given. 

At the beginning of each routine, the command name and para¬ 
meters are given for use in the utility. 


Renumber 

COMMAND SYNTAX 

renum start line number or 0, increment, new start line value 

Using 0 as the first parameter will indicate that the whole program 
requires renumbering. If a start line is set, it will renumber from that 
line to the end of the program: 

for example, RENUM 0,10,100 
RENUM 100,10,200 

Later in the chapter we will discuss an auto routine. This is of use when 
typing in programs where the line numbers are sequential and of a 
fixed step. Renumbering a program makes it easier to read and opens 
up space to incorporate new lines. 

The system we are going to use is known as a two pass system. The 
first pass will renumber commands that have line numbers associated 
with them. This is not as straight-forward as it might at first appear as 
the commands then and run have optional line numbers. 
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There are cases where we do not need to look for a 'renumbering 
command'. These will be after a data or rem token is encountered, or 
when inside quotes. In the latter case, we just loop until the next quote 
or the end of the line is found, whichever is soonest. The procedure on 
finding the tokens is simply to go to the next statement. 

On finding a line number after a command, we convert it from its 
stored ASCII form to a two byte number. If it is less than the 'start line 
number', renumbering is not required. When it is not, we calculate its 
new value, convert it to ASCII, and overwrite the original. 

Once all the directive line numbers have been dealt with, the simple 
task of actually changing the line numbers themselves is carried out. 

We will be using many zero page locations in the routine and so to 
help you to follow the routine, a list of the main ones and what they 
control is given below: 

$FB and $FC Address of the current basic line being worked on 
$FD and $FD- Address of the next line - the links of the current line 
$49— Stores the position in the current line, the line marker or 

y register 

$C9and$CA Line number of first I ine to be renumbered 
$41 and $42- Address of the first line to be renumbered 
$BC- Value of increment between new line numbers 

$BD and $BE- Value of the new start line number 
$B9 and $BA- Starts with the same values as $BD and $BE and is 
changed whilst calculating the new line number for 
directives after keywords. 

$58 and $59- Starts with the same values as $41 and $42 and is incre¬ 
mented to give the actual new number of a directive 
command 


ASSEMBLY LISTING 


7 OPEN 

= $8933 


8 CLOSE 

= $888B 


9 *=$89C5 



10 

JSR $81F5 

! GET PARAMETER 

20 

JSR $AEFD 

! CHECK COMMA 

30 

LDA $14 


40 

STA $C9 


50 

LDA $15 


60 

STA $CA 


70 

JSR $81F5 

1 GET PARAMETER 

80 

JSR $AEFD 

! CHECK COMMA 

90 

LDA $14 


100 

STA $BC 


110 

JSR $81F5 

! GET PARAMETER 


- NEW START LINE # 
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128 


LDA 

$14 


130 


STA 

$BD 


146 


LDA 

$15 


150 


STA 

$BE 


160 


LDA 

$2B 


170 


STA 

$FB 


186 


LDA 

$2C 


190 


STA 

$FC 


200 


LDA 

$CA 


210 


BNE 

FINDS 


220 


LDA 

$C9 


230 


BNE 

FINDS 


240 


LDY 

#$02 


250 


LDA 

($FB), 

,Y 

260 


STA 

$C9 


270 


I NY 



280 


LDA 

<$FB), 

,Y 

290 


STA 

$CA 


300 

FINDS 

LDA 

$C9 


310 


STA 

$14 


320 


LDA 

$CA 


330 


STA 

$15 


340 


JSR 

$A613 


358 


BCS 

STORE 


360 


LDX 

#$15 


370 


JMP 

$A437 


380 

STORE 

LDA 

$5F 


390 


STA 

$41 


400 


LDA 

$68 


418 


STA 

$42 


420 

START 

LDY 

#$00 


430 


LDA 

($FB) 

f Y 

440 


STA 

$FD 


458 


INY 



440 


LDA 

($FB> 

,Y 

470 


STA 

$FE 


480 


BNE 

CONT 


490 


JMP 

RENUM 


500 

CONT 

INY 



518 


INY 



520 

NEXT 

INY 



538 


LDA 

($FB) 

>Y 

540 


BNE 

CONTI 


550 

LINE 

LDA 

$FD 



! IS START LINE INPUT 9 


1 GET FIRST PROG LINE # 


! FIND START LINE ADD 
! LINE FOUND 

! ERROR - ILLEGAL DIRECT 
! STORE START LINE ADD 


! GET LINKS TO NEXT LINE 


NOT END OF BASIC PROG 
CHANGE LINE NUMBERS 
SKIP LINE NUMBERS 


GET CHAR OF LINE 
NOT END OF LINE 
PUT NEXT LINE IN 
LINE REGISTERS 


540 


STA $FB 
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570 


LDA 

$FE 



588 


STA 

$FC 



590 


BNE 

START 


ENFORCED - NEXT LINE 

600 

CONTI 

CMP 

#$22 


IS IT A QUOTE 

610 


BNE 

C0NT2 


NO 

620 

QUOTE 

I NY 




630 


LDA 

<$FB),Y 


LOOK FOR NEXT 






QUOTE OR LINE END 

640 


BEQ 

LINE 


END OF PROG LINE 

650 


CMP 

#$22 


QUOTE? 

660 


BNE 

QUOTE 


NO 

670 


BEQ 

NEXT 


YES - NEXT CHAR 

680 

CQNT2 

CMP 

#$8F 


REM TOKEN? 

690 


BEQ 

LINE 


YES - NEXT LINE 

700 


CMP 

#$83 


DATA TOKEN? 

710 


BEQ 

LINE 


YES - NEXT LINE 

720 


CMP 

#$A7 


THEN TOKEN? 

730 


BEQ 

THEN 


YES 

740 


CMP 

#$8A 


RUN TOKEN? 

750 


BEQ 

THEN 


YES 

760 


CMP 

#$89 


GOTO TOKEN? 

770 


BEQ 

C0NT3 



780 


CMP 

#$CB 


GO TOKEN? 

790 


BNE 

NOGO 


NO 

800 

SPACE 

I NY 




810 


LDA 

<$FB),Y 



820 


CMP 

#$20 



830 


BEQ 

SPACE 



840 


CMP 

#$A4 


TO TOKEN AFTER GO? 

850 


BEQ 

C0NT3 



860 

NOGO 

CMP 

#$8D 


GOSUB TOKEN 

870 


BEQ 

C0NT3 


YES 

880 


CMP 

#$E6 


RESET TOKEN 

890 


BEQ 

C0NT3 



900 


BNE 

NEXT 


NO RELEVENT TOKEN 

910 

THEN 

I NY 




920 


LDA 

($FB),Y 


GET NEXT BYTE 

930 


CMP 

#$20 


IS IT A SPACE 

940 


BEQ 

THEN 


YES - SKIP IT 

950 


CMP 

#$30 


LOOK FOR A NUMBER 






IN ASCII 

960 


BCS 

NUMBER 


FOUND A NUMBER? 

970 


DEY 




980 


BNE 

NEXT 


NOT LINE # AFTER THEN 

990 

NUMBER 

DEY 




000 


CMP 

#$3A 


IS IT A NUMBER 
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1018 

BCS NEXT 

NO LINE # 

1020 C0NT3 

I NY 


1038 

LDA <$FB),Y 

GET NEXT BYTE 

1040 

CMP #$20 

A SPACE? 

1058 

BEQ C0NT3 

YES 

1040 

STY $49 

STORE LINE MARKER 

1070 

DEY 


1080 

LDX #$00 

COUNTER FOR NO OF 



CHARS IN NUMBER 

1090 DIGITS 

I NY 


1100 

LDA <$FB),Y 


1110 

CMP #$30 

NUMBER IN ASCII ? 

1128 

BCC C0NT4 

NO END OF LINE# 

1130 

CMP #$3A 

NUMBER IN ASCII ? 

1148 

BCS C0NT4 

NO END OF LINE# 

1158 

STA $0280,X 

STORE IN INPUT BUFFER 

1140 

INX 


1170 

BNE DIGITS 

ENFORCED GET NEXT BYTE 

1180 C0NT4 

LDA #$3A 

STORE COLON AS 



END MARKER 

1190 

STA $0280,X 


1208 

STX $BF 

! NO OF CHARS IN LINE 

1210 

LDA #$82 

! SET CHRGET TO 



START OF BUFFER 

1220 

STA $7B 


1238 

LDA #$80 


1240 

STA $7A 


1250 

JSR $81F5 

1 CHANGE INTO REAL NOS 

1240 

LDA $14 


1270 

STA $C3 


1280 

LDA $15 


1290 

STA $C4 


1300 

CMP $CA 


1310 

BEQ CHECK2 


1320 

BCS C0NT5 

! > START LINE 

1330 NORE 

LDA $49 

! NO RENUM OF DIRECTIVE 

1340 

ADC $BF 


1350 

TAY 


1340 

JMP COTtiA 

! CHECK FOR ON COMMAND 

1370 CHECK2 

LDA $C3 


1380 

CMP $C9 


1390 

BCC NORE 


1400 C0NT5 

LDA $BD 


1410 

STA $B9 

! TRANS START ADD TO 


WORKING REGISTER 





Programming aid routines 149 


1420 

LDA 

$41 


! TRANS START ADD TO 





WORKING REGISTERS 

143? 

STA 

$58 



1448 

LDA 

$BE 



1450 

STA 

$BA 



1460 

LDA 

$42 



1478 

STA 

$59 



1480 FINDL 

LDY 

#$00 



1490 

LDA 

($58), 

, Y 1 

SEARCH FOR LINE NO 

1580 

STA 

$5A 

i 

SAVE LINKS 

1510 

I NY 




1520 

LDA 

($58), 

,Y 


1530 

STA 

$5B 



1540 

BNE 

C0NT6 

1 

NOT END OF PROG 

1550 

LDY 

#$02 



1560 

LDA 

($FB), 

, Y 1 

GET LINE# FOR 





ERROR MESSAGE 

1570 

STA 

$39 



1580 

I NY 




1590 

LDA 

($FB), 

Y 


1600 

STA 

$3A 



1610 

LDX 

#$11 



1628 

JMP 

$A437 

» 

ERROR - UNDEF'D 





STATEMENT 

1630 C0NT6 

I NY 




1640 

LDA 

($58), 

Y 1 

GET AND STORE LINE NO 

1650 

STA 

$B7 



1660 

I NY 




1670 

LDA 

($58), 

Y 


1680 

CMP 

$C4 

i 

COMPARE FOR SAME LINE 

1690 

BNE 

NEXTLINE! 

NOT SAME 

1700 

LDA 

$B7 



1710 

CMP 

$C3 



1720 

BEQ 

FOUNDL 


1730 NEXTLINE 

LDA 

$B9 



1740 

CLC 


i 

INC REGS TO CALC 





NEW LINE NO 

1750 

ADC 

$BC 



1760 

STA 

$B9 



1770 

BCC 

NOINC 



1780 

INC 

$BA 



1790 NOINC 

LDA 

$5A 



1800 

STA 

$58 

! 

PUT NEXT LINE ADD 





IN CURRENT REG 

1810 

LDA 

$5B 



1820 

STA 

$59 
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1830 

BNE FINDL ! 

ENFORCED - CHECK 



NEXT LINE 

1840 FOUNDL 

LDX $B9 


1850 

LDA $BA ! 

MSB OF NEW LINE 



DIRECTIVE 

I860 

JSR $847F 1 

CONVERT TO ASCII 



- INPUT BUFFER 

1870 

LDA $BF 


1888 

STA $3E 


1890 

CPX $3E ! 

DOES MEM HAVE TO MOVE 

1900 

BEQ NOMOVE 


1910 

BCS OPENUP 


1920 

JSR CLOSE 

REQUIRES LESS 



SPACE 

1930 

JMP NOMOVE 


1940 OPENUP 

JSR OPEN 

REQUIRES MORE 



SPACE 

1950 N0M0VE 

LDY $49 


I960 

LDX #$00 


1970 NEXTF 

LDA $0200,X 

GET NEW NO IN ASCII 

1980 

BEQ COMMA 

END OF NUMBER 

1990 

STA <$FB),Y 

STORE IN PROG 

2000 

I NY 


2010 

I NX 


2920 

BNE NEXTF 

! ENFORCED 

2030 COMMA 

LDA ($FB),Y 1 

1 COMMA MEANS ON USED 

2040 

CMP #$2C 


2050 

BEQ ANOTHER 


2060 

DEY 


2070 

JMP NEXT 

1 GET NEXT TOKEN 

2080 ANOTHER 

JMP C0NT3 

! NEXT LINE - ON C0m=MD 

2090 RENUM 

LDY #$00 


2100 

LDA ($41) ,Y 

! GET AND,STORE LINKS 

2110 

STA $5A 


2120 

I NY 


2130 

LDA ($41),Y 


2140 

STA $5B 


2150 

BNE C0NT8 

! NOT END OF PROGRAM 

2160 

PLA 

! REMOVE RETURN 



ADDRESS 

2170 

PLA 


2180 

JMP $A474 

! GOTO READY FOR BASIC 

2190 C0NT8 

I NY 


2200 

LDA $BD 

' NEW LSB LINE NO 

2210 

STA ($41),Y 

! CWWGE PROG 

2220 

I NY 
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2230 

LDA 

*BE 1 

1 NEW MSB LINE NO 

2240 

STA 

<*41),Y 



2250 

CLC 




2260 

LDA 

*BD 



2270 

ADC 

*BC ! 

1 INC NEW LINE# 
INCREMENT 

BY 

2280 

STA 

*BD 



2290 

BCC 

C0NT9 



2300 

INC 

*BE 



2310 CONT9 

LDA 

*5A 



2320 

STA 

*41 



2330 

LDA 

*5B 



2340 

STA 

*42 



2350 

BNE 

RENUM 1 

1 ENFORCED NEXT 

LINE 


8B5F ANOTHER 
888B CLOSE 
8A2D CONT 
8A4D CQNT2 
8AAA C0NT4 
3B05 CONT 6 
8B8? CONT? 
8AE8 F1NDL 
8B2C FOUNDL 
8A2F NEXT 
8B17 NEXTLINE 
8B22 NOINC 
8ACA NORE 
8933 OPEN 
8A42 QUOTE 
3A65 SPACE 
8A15 STORE 


8AD2 CHECK2 
8B55 COMMA 
8A3E CONTI 
8A8D CONT3 
8AD8 C0NT5 
8B74 CONT8 
8A99 DIGITS 
8A03 FINDS 
8A34 LINE 
8B4A NEXTF 
8A70 NOGO 
8B46 NOMOVE 
8A88 NUMBER 
8B43 OPENUP 
8B62 RENUM 
3A1D START 
8A7A THEN 


LINES 10-150: The parameters are gathered here and put into their 
registers. Commas separating the inputs are also checked, giving 'syn¬ 
tax errors' if not present. 

LINES 160-190: The start of the basic program is now put into the 
current line registers, as it is also the address of the first line. 

LINES 200-290: If the first parameter input was zero, indicating a full 
program RENUMber, then the first line number is found and stored in its 
appropriate register. 

LINES 300-410: Although we do not need this at the moment - here we 
find the address of the start line. We use the rom routine find basic line 
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(see Chapter 6, page 142). If the carry flag is set, it will mean that the 
start line requested was not found and an 'illegal direct' error will be 
printed. The address, if found, will be stored in $41 and $42. 

LINES 420-1020: The byte-by-byte search for the appropriate keywords 
starts here. We start at the beginning of the basic program, no matter 
what the start line requested. As soon as the link addresses are collec¬ 
ted and stored, the end of the program is checked for. Passing this 
means that only the actual line numbers require changing, so it is off to 
the final section of the whole routine, which is described later. 

To continue finding the tokens, we skip the line numbers as they are 
not required here. Lines 540 to 590 set the values for the next line, after 
the end of line zero is discovered, and branches back to process the 
next line. 

There is nothing of interest to us in quotes so on finding one we go 
into a loop to find a second quote or the end of the line. This is carried 
out in lines 620 to 670. 

The next two tokens checked for are data and rem. Encountering 
these indicates that we can proceed to the next line as there will be 
nothing further to renumber in these lines. 

There are two keywords - run and then - that may, or may not, have 
line numbers. These will therefore branch to check this possibility 
before proceeding. The standard Commodore directive commands are 
next in line: goto, goto and cosub. The centre keyword is checked in 
two stages, first for the go. A loop is then set up to skip over spaces 
and then the to token is looked for. All three keywords on being found 
will cause the routine flow to branch further ahead than run or then, as 
it assumes they will have line numbers. If not, then unless you have a 
line number of 0, an error will be detected later. 

The last keyword to be checked for is one of our new ones: reset. 

If line 900 is reached then we have not found a relevant keyword and 
therefore branch back to get the next program byte. 

The last part in this section is to check if the next significant byte 
after run or then is a number, in ASCII. Spaces are skipped over and 
checks are made for values between $30 and $39 inclusive to continue. 

LINES 1030-1390: The line numbers after the keywords will be in ASCII 
form and the line itself in two byte form. To do our calculations, we 
want both in the same two byte format. ASCII numerals therefore have 
to be changed. 

After skipping spaces, we store our y register (so we know where to 
write our new line number from), which is the line marker. Pro¬ 
ceeding, we pick up bytes until a non-numeral is found, and store 
them in the input buffer. The x register is used to count the number of 
digits and is stored for later use. To convert the ASCII into the form we 
require, we use the get parameter routine. For this to work, we perform 
two operations. First, we make sure that after the last line number digit 
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there is a non-numeric character by storing a colon there. Secondly, 
we set chrget to point to the first numeral - $0200. 

The converted result is taken from registers $14 and $15 and stored in 
the two we have designated. 

We only wish to renumber from the start line in the command. 
Lines 1290 to 1390 check this by comparing the two values. If no 
renumber of that particular line is required, we retrieve our line mar¬ 
ker and increase it by the number of digits in the directive number, as 
we do not require to check them again. This is then transferred to the 
y register. It will actually point to the byte following the last digit but 
this is taken into account in what follows. We jump further ahead to a 
position noted as comma (described later) starting at line 2030. 

LINES 1400-1830: Having got this far, we have found a number which 
requires a different value. To find the new value, we have to go 
through the program from the designated start line and find the line 
that it points to (remember we have not changed the actual line 
numbers yet). At the same time, we calculate the new value. 

To start with, we take the address of the start line and store it in $58 
and $59. We then take the new value for the start line, the third 
parameter in the command, and place it in $B 9 and $ba. The line 
number we are checking for is held in $C 3 and $C4. 

As before, we get and store the link addresses, but here if we 
discover the end of the program has been reached (high link address 
of zero), an error is present as the line number of the directive was 
not found. The error produced is the same as when RUNing a program 
- 'undef d statement'. To make it easier for you, we also print out the 
line number with the error. 

As long as this is not encountered, collecting a line number and 
comparing it for a match comes next. If it is not the one we want, the 
new start line number is increased by the increment value. This will 
calculate the value for the following line. The value is only increased 
on not finding a match, which conversely means that when the line 
searched for is located, the value is ready and waiting. After incre¬ 
menting, we transfer the links to the line registers and branch back to 
check further lines. 

LINES 1840-1940: We now have our new line number and need only 
to insert it into the line after the token, overwriting the original 
directive. 

The new value is in two byte form and so requires converting to 
ASCII form. We do this by using a routine earlier in the utility. This 
requires the accumulator to be loaded with the high byte and the x 
register with the low byte. We then call our 'convert to ASCII' at $ 847 F. 
This will do the conversion and store the answer in the input buffer, 
with a zero signifying the end. Also returned is the number of charac¬ 
ters in the x register. If this value is the same as the original number, 
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the value stored in location $bf, we can just overwrite with no problems 
and proceed to line 1950. 

The number of characters is transferred to location $3E, via the 
accumulator. This location is for the memory move routine described 
in Chapter 6. By comparing the value in the x register (the new number 
of digits) with the accumulator figure (the old number of digits), we 
determine if a move is required. If the x value is less, the close routine 
is called; if it is greater, the open routine is called; if it is the same, no 
move is required. 

LINES 1950-2020: This leaves us one thing to do which is to write in the 
new number. First, we reload the y register with the line marker. This 
points to the position of the first digit in the number. By increasing x, 
starting at zero, and y, we take the digits from the input buffer and 
store them into the program line. This is repeated until we collect a 
zero from the buffer, when the branch in line 2020 will fail. 

LINES 2030-2080: When we went through the lines checking for 
tokens, we did not look for the on statement. The reason for this is that 
the only time a comma should be used after a line directive following a 
gosub or goto is when the on keyword has been used. 

On entering these lines the y register will point to the byte following 
the last one checked or stored. We load the accumulator with that byte 
to see if a comma is present. Finding it means that we branch back to 
the position just after the token search where it will commence with 
gathering in the line number directive for processing. 

If the comma is not present, the y register is decreased and we go 
back to start the search for the next appropriate token. The y has to be 
decreased in case it was the end of the line, otherwise it would not 
have mattered. 

LINES 2090-2350: RENUMBERING THE LINE NUMBERS 

All the directive line numbers have now been checked and processed 
where required. The only thing which remains is to renumber the 
program lines themselves. 

This is started from the line number requested in the first parameter 
of the command and whose address is held in $4i and $42. Its new 
starting value is held in $bd and $be, and these will be incremented by 
the value in $bc for each line. We progressively go through the pro¬ 
gram inserting the new numbers, in two byte form, until the end of the 
program is reached. After each line the number value is incremented 
ready for the next line. 

When the renumbering is completed, we take the return address 
from the stack and jump to the start of basic to await further instruc¬ 
tions. We do this to break out of the program in the unlikely event of 
renum being initiated within it. 
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A WORD OF WARNING 

We cannot stress strongly enough that a copy of the original program 
should be saved to tape, or disk, prior to renumbering. We all make 
mistakes and if the renum finds a non-existent line number after, say, a 
goto, then an error is produced. This leaves the program only partially 
renumbered. 


Auto 

COMMAND SYNTAX 

auto first line number, increment 

To escape from auto simply press return immediately after the line 
number, as if deleting a single line. 

This command removes the need to type in line numbers. The user just 
decides the start line number and the increment between consecutive 
lines. To achieve this we want a place to break into the normal flow of 
basic. This is made possible as every time an input line is processed it 
goes to a vectored jump before it is ready to receive the next. This is 
called the basic Warm Start Vector which is at $0302 and $0303. By chang¬ 
ing the address in this vector to a routine of our own we can calculate 
the line number, put it into ASCII form and then insert it into the 
keyboard buffer just as if you typed it yourself. Having completed this, 
we then return to the input routine for you to make up the program 
line. 

ASSEMBLY LISTING 
? *=*842E 


10 

JSR *81F5 

! GET PARAMETER 

20 

JSR *AEFD 

1 CHECK COMMA 

30 

LDA *14 

! 1ST LINE# - LOW 

40 

STA *FB 

! SPARE ZERO PAGE 



LOCATION 

50 

LDA *15 

! 1ST LINE# - HIGH 

60 

STA *FC 

1 SPARE ZERO PAGE 



LOCATION 

70 

JSR *81F5 

! GET PARAMETER 

80 

LDA *14 

! INCREMENT 

90 

STA *FD 

! SPARE ZERO PAGE 



LOCATION 

100 

LDA #<AUT0 


110 

STA *0302 

! START BASIC VECT LOW 

120 

LDA #>AUT0 


130 

STA *0303 

! START BASIC VECT HIGH 

140 AUTO 

LDA *0200 

! 1ST CHAR IN BUFFER 
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150 


BEQ 

EXIT 

1 TURN OFF AUTO 

140 


LDX 

*FB 


170 


LDA 

*FC 

1 NEXT LINE NUMBER 

180 


JSR 

ASCII 

1 PUT LINE # IN ASCII 

190 


STX 

*C4 

! NO OF CHARS IN 
KEYBOARD BUFFER 

200 

NEXT 

LDA 

*0200,X 

! PICK UP ASCII 

210 


STA 

*0277,X 

! PUT IN KEY BUFFER 

220 


DEX 



230 


BPL 

NEXT 


240 


CLC 



250 


LDA 

*FB 


240 


ADC 

*FD 

! INCREMENT LINE NUMBER 

270 


STA 

*FB 


280 


BCC 

NO INC 


290 


INC 

*FC 


300 

NO INC 

JMP 

*A483 

! READY FOR BASIC 

310 

EXIT 

LDA 

l»*83 


320 


STA 

*0302 


330 


LDA 

#*A4 


340 


STA 

*0303 


350 


JMP 

(*0302) 


340 

ASCII 

STX 

*43 

! LOW BYTE 

370 


STA 

*42 

1 HIGH BYTE 

380 


LDX 

#*90 


390 


SEC 



400 


JSR 

*BC49 


410 


JSR 

*BDDF 


420 


JSR 

*B487 


430 


JSR 

*B4A4 


440 


LDX 

#*00 


450 

AGAIN 

LDA 

*0100,X 


440 


STA 

*0200,X 

! PUT ASCII CHARS IN 
INPUT BUFFER 

470 


BEQ 

FINISH 

! ZERO CHAR WAS FOUND 

480 


I NX 



490 


BNE 

AGAIN 


500 

FINISH 

RTS 




8494 

AGAIN 

847F 

ASCI I 

844D 

AUTO 

8472 

EXIT 

84 9F 

FINISH 

845B 

NEXT 

844F 

NOINC 
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LINES 10-130: These lines are only used when the auto command is 
active. We take the parameters of the command and place the start line 
number in $fb and $fc and the increment in $fd. As we only take the low 
byte of the increment, the multiples over 256 are ignored. The only 
syntax check is made in line 20, where we check for a comma between 
the two parameters. Lastly in this section we change the vector address 
to point to the auto numbering which starts in line 140. 

LINES 140-300: The first thing is to see if the first character in the input 
buffer is zero. This will signify no basic coding was inserted in the line 
and that you want to cancel the auto routine. When a basic line is 
typed, the line number is put into the input buffer. During the process¬ 
ing stage of inserting the line into the program basic takes out the line 
number and moves the rest of the line back up the buffer to overwrite 
it. This means that if the first input after a line number was a return 
(basic inserts a zero for that as an end of line marker) then the first 
character in the buffer will be a zero after the line number has been 
removed. Therefore, on finding a zero we will branch off to exit the 
auto mode. 

Assuming that we are still auto-numbering, we take the values in $fb 
and $fc and go off to convert them to ASCII form. This we will come 
across shortly. On returning from that subroutine the x register will 
have the number of ASCII characters in the line number and they will 
be in the input buffer. The x value is stored in the register which tells 
the operating system how many characters will be in the keyboard 
buffer. Having done that, we transfer the characters from the input 
buffer to the keyboard buffer. 

We now set the line number for next time by adding the increment 
in $fd to the values in $fb and $fc. 

That is all there is to do, so we return you to the normal basic flow 
where the input routine will take the line number from the keyboard 
buffer, place it in the input buffer and print it on the screen. 

LINES 310-350: These lines will be operated when you want to exit 
from auto. All we do is restore the basic Warm Start Vector to its initial 
value and then return you to basic to wait for your next instruction. 

LINES 360-500: CONVERT TO ASCII: This subroutine will also be used 
by other commands when they require a one or two byte number 
converted into ASCII form. The subroutine is entered with the low byte 
of the number in the x register and the high byte in the accumulator. 

The conversion is carried out by four rom routines, but before we 
can call them we have four items to set. First, the number to be 
converted is transferred to locations $63 (the low byte) and $62. These 
are part of the floating point accumulator #i (Fac#d which is the main 
number manipulation area for basic. The other two prevent certain 
actions in the conversion process. Setting the carry flag will bypass a 
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routine that will perform the complement of the number and loading x 
with $90 will set the Exponent byte of fac#i to avoid getting an answer in 
exponent form. 

The first rom routine visited clears all the bytes in the fac#i (or sets 
them to default values) which we have not dealt with. The next routine 
does the actual conversion. The remaining routine puts the result into 
a string and places it at the bottom of the stack area. The last byte 
placed there will be zero to mark the end. 

We cannot leave it there as basic often uses this area. We therefore 
transfer it to the input buffer where it can be taken and used by the 
coding calling this routine. On exit the value in the x register will be 
the number of ASCII characters in the conversion. 


Merge and append - 

combining BASIC programs together 

COMMAND SYNTAX 
MERGE "program title",device 
APPEND "program title",device 

The default device is tape and if there is no program title, the first 
program found on the tape will be used. 

Merging programs together means that they are weaved together in 
program line order. The result is as if you typed in the lines of the 
merging program at the keyboard. This also means that if the programs 
both have lines with the same number, the ones in the merging 
program will overwrite the original. 

Appending a program to another is simply a process of tagging it 
onto the end of the one in memory, irrespective of line numbers. 

Merging is the more complicated of the two programs, but is not 
really complicated in itself. Both programs are initially loaded at the 
end of the current memory program, append overwriting the last two 
bytes whilst merge comes just after them. The last two bytes of the 
program are the unique link address of zero, signifying the end of a 
basic program. By overwriting them on append, we achieve our aim 
immediately and all that remains is to amend the link addresses to 
continue the program flow and to reset the end of program pointer. 

In merging we take each new line in turn and insert it in the main 
program - if we had overwritten the original end links we would both 
merge and append which we do not want. To incorporate the new 
lines we make use of the normal basic input routine. After you input a 
program line and press return, basic takes off the line number and then 
tokenizes all the basic keywords. At this point the line number is in two 
registers, in a two byte form rather in than the ASCII form typed in, and 
the line's content has been moved to the beginning of the input buffer. 
There is a counter of the number of bytes in the line which is four 
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greater to incorporate the line number and link address, basic 
therefore knows the total space required for the line. We will enter the 
rom routine at this point with the appropriate data set. Unfortunately, 
it is not a subroutine but finishes up waiting for an input. We therefore 
have to change the same vectors as in the auto routine (the basic Warm 
Start) to point us back to continued merging until we reach the end. 


ASSEMBLY LISTING 
9 *=*87A7 


10 

JSR 

SETADD 

! SET ADDRESSES 




FOR MERGE PROG 

20 

STX 

*2B 

! SET MERGE PROG START 

30 

STY 

*2C 


40 

LDY 

#*00 

! PUT ZERO AT 1ST 




LOCATION 

50 

TYA 



60 

STA 

(*2B),Y 


70 

JSR 

LOAD 


80 

STX 

*2D 

1 END OF MERGE PROG 

90 

STY 

*2E 


100 

JSR 

*A533 

! RECHAIN MERGE PROG 

110 

JSR 

RESET1 

1 RESTORE POINTERS TO 




ORIG PROG 

120 

LDA 

#<MERGE 


130 

LDX 

#>MERGE 


140 

STA 

*0302 

CHANGE WARM START 




VECTOR TO MERGE 

150 

STX 

*0303 


160 JOIN 

LDA 

#*01 


170 

STA 

*7B 


180 

LDA 

#*FF 


190 

STA 

*7A 

1 SET UP CHRGET 

200 

LDY 

#*00 


210 

LDA 

<*FB) ,Y 

! GET AND STORE LINKS 

220 

STA 

*FD 


230 

1NY 



240 

LDA 

(*FB) ,Y 


250 

STA 

*FE 


260 

BEQ 

EXIT 

1 END OF MERGE PRG 

270 

I NY 



280 

LDA 

(*FB) ,Y 

1 GET AND STORE LINE NO 

290 

STA 

*14 

! BASIC EXPECTS THEM 




IN THESE LOCATIONS 

300 

I NY 



310 

LDA 

(*FB) ,Y 
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320 

STA 

$15 

330 

LDX 

#$04 


340 NEXT 

1NX 


350 

I NY 


360 

LDA 

<$FB),Y 

370 

STA 

$01FB,X 

380 

BNE 

NEXT 

390 

TXA 


400 

TAY 


410 

JSR 

$A4A2 

420 MERGE 

LDA 

$FD 

430 

LDX 

$FE 

440 

STA 

$FB 

450 

STX 

$FC 

460 

BNE 

JOIN 

470 EXIT 

LDA 

#$83 

480 

LDX 

#$A4 

490 

STA 

$0302 

500 

STX 

$0303 

510 

JSR 

$A474 

520 LOAD 

JSR 

$E1D4 

530 

LDA 

#$00 

540 

STA 

$B9 

550 

LDX 

$2B 

560 

LDY 

$2C 

570 

JSR 

$FFD5 

580 

BCS 

ERROR 

590 

JSR 

$FFB7 

600 

AND 

#$BF 

610 

BEQ 

EXIT1 

620 

JSR 

RESET 

630 

LDX 

#$1 D 

640 

JMP 

$A437 

650 EXIT1 

RTS 


660 ERROR 

Phtt 


670 

JSR 

RESET 

680 

PLA 


690 

JMP 

$E0F9 


! SET COUNTER TO 
INCLUDE LINKS AND 
LINE# 


! GET LINE DATA 
! STORE IN INPUT BUFFER 
! NOT END OF LINE 0 

' PUT COUNTER IN Y 
! BASIC AFTER CRUNCH 
ROUTINE 

! BASIC WARM START 

POINTS HERE 
! PUT LINKS IN LINE 
REGISTERS 


! ENFORCED AS $FE 
CHECKED FOR 0 EARLIER 


! RESTORE WARM START 

! READY FOR BASIC 
! GET LOAD PARAMETERS 
! FOR RELOCATED LOAD 
! IN CASE A SEC ADD 
IN COMMAND 

! SET LOAD START 
! KERNAL LOAD 
! BAD LOAD 

! READ I/O STATUS WORD 

! GOOD LOAD 
! RESET POINTERS TO 
ORIGINAL PROG 

' LOAD ERROR 

! SAVE FOR ERROR 


! ERROR DEPENDING ON A 
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700 RESET 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 RESET! 
830 
840 
850 
860 
870 
880 
890 
900 

910 SETADD 

920 

930 

940 

950 

968 

970 

980 

990 

1000 I APPEND 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


LDA *FB 
SEC 

SBC #*02 
STA *14 
LDA *FC 
SBC #*00 
STA *FC 
LDA #*00 
TAY 

STA <*14),Y 
I NY 

STA (*14) ,Y 
LDA *FD 
LDX *FE 
STA *28 
STX *2C 
LDA *FB 
LDX *FC 
STA *2D 
STX *2E 
RTS 

LDA *2B 
STA *FD 
LDA *2C 
STA *FE 
LDX *2D 
LDY *2E 
STX *FB 
STY *FC 
RTS 

ROUTINE 

JSR SETADD 
TXA 
SEC 

SBC #*02 
STA *2B 
TYA 

SBC #*00 
STA *2C 
JSR LOAD 
STX *FB 
STY *FC 
JSR RESET1 
JSR *A533 
RTS 


! RESTORE TWO ZEROS 
AT END OF PROG 
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3830 ERROR 
882F EXIT1 
8810 LOAD 
87EB NEXT 
384D RESET1 


8803 EXIT 
87CA JOIN 
87F? MERGE 
3838 RESET 
885E SETADD 


This time we are not going to describe the program in line number 
order. There are three subroutines in the body of the program used 
both by merge and append and we will deal with these first. 

LINES 910-990: SETADD: This simply takes the start and end addresses 
of the original program and temporarily stores them. On coming out of 
the subroutine, the y register will contain the high byte of the end 
address and the x register, the low value. 

LINES 700-900: RESET: The first 12 lines will only be encountered when 
there is an error in loading the secondary program. These simply 
ensure that the end of program zeros are at the end of the original 
program. This will mean that when exiting from either command your 
original program is intact before starting. 

The remaining lines are the reverse of setadd, that is, they take the 
values in the temporary registers and place them in the program end 
and start registers. These last lines are called in the assembly listing as 

RESET 1. 

LINES 520-690: LOAD: The first thing this subroutine does is to call 
one resident in the basic rom used by the standard load and save com¬ 
mands. It gathers up the parameters and sets various registers accord¬ 
ing to that information, and as it is there we also make use of it. We are 
going to do a relocated load and if a secondary address is present this 
will override our objective. To correct this we load location $B9 with 
zero to bring back the state for a relocated load. 

The kernal load routine expects the start address of the load in the 
two processor registers, x and v, with the former holding the low byte 
of that address. The accumulator is the flag for either a load or a verify 
operation. The value for load is zero, the other being one, which was 
set whilst confirming the secondary address. The kernal load routine is 
situated at $ffds. Error checking comes now in the order of operations 
- you may have put in the wrong tape or disk. The first indicator to a 
bad load is the carry flag being set; if this is so, then we branch off to 
deal with it. We have to check the i/o status word if the carry is clear. 
This is achieved by calling another kernal routine, at $ffb7 . The result 
coming out of this call is ANDed with the value $bf and everything is fine 
if the zero flag is set. The error given for any other outcome is 'load 
error'. 

On the first check we go to line 660 if the carry was set. The value in 
the accumulator will be used for the error so we temporarily store this 



Programming aid routines 163 


on the stack. The reason for this is to reset all the pointers we altered to 
give you back your original program. This is done by a call to reset, 
described above. Once done we retrieve the accumulator value and 
jump to part of the basic loading routine for an error to be generated, 
based on the accumulator value. 

MERGE 

LINES 10-150: First of all we call the setadd routine. From this we can 
set the start address of the merging program to immediately after the 
memory program, basic expects the first byte to be zero and therefore 
we oblige it. Having done that, we load the program we want to merge. 
The address that is returned from loading is placed in the end of 
program address. At this point as far as basic knows the only program 
in memory is your merge program. The link addresses have to be set 
up so we know where the lines start. This is done by a call to the rom 
routine at $A533 which will do this for us. From now on we want basic to 
respond to the original program and therefore we reset all the registers 
back to their original values through reseti. 

To merge the lines into the master program we use the program line 
input routine in the basic rom. This is not a stand alone routine but 
ends up at the basic Warm Start after each line has been processed. It 
follows that, as in the auto routine, we will have to alter the vector 
pointing to that position to divert to this routine until all lines are 
merged. This is done in the lines 120 to 150. The addresses will be in 
the location of line 420. 

LINES 160—460: These are the instructions which actually combine your 
two programs. First, chrget is set to a position one place before the 
start of the input buffer. We now turn our attention to the merging 
program lines. The address of the first line will still be in locations $fb 
and $fc following the setadd routine called at the beginning. Using this 
information, we get the link addresses and store them for later. We use 
this system a lot in our routines but in this case it is vital. We have left 
no room between the programs so that when the line is transferred the 
master program will be longer, overwriting the needed link addresses. 
The check is also made for the end of the merge program, the usual 
high byte zero link address. 

Next we take the two byte line number and place it in registers so 
that basic will know where to find them, $14 and $15. The contents of the 
line, including the zero byte end marker, are now transferred to the 
input buffer starting at $0200. The listing shows $0 ifb but there is a 
reason for this. The x register will come out with a value of the number 
of bytes in the line, but to account for the four bytes holding the link 
addresses and the line number, it starts with a value of 4. This is one 
more than required but the rom routine will compensate. This means 
that with the initial value of $04 in x the first location written to will be 


164 Programming aid routines 


$0200. The rom routine we are using wants the number of bytes in the y 
register rather than the x, so we oblige by transferring them via the 
accumulator. 

We are now ready to use the rom to merge our line into the main 
basic program. We join the rom just after the coding that turns the 
keywords into tokens - ours are in that state already. As far as the rom 
is concerned you have typed in the line and will put it in the program as 
such. 

The basic Warm Start Vector will bring us back after inserting the line 
to LINE 420 in the above listing. We now put the address of the next 
line into the working registers and branch back to deal with it. The 
branch instruction will always succeed as we have checked previously 
for a zero value in $fe. 

These lines will be repeated until all the merge program lines have 
been assigned to the master program. 

LINES 470-510: The merge is complete so we restore the basic Warm 
Start Vector to its normal setting and return to basic where it will await 
further commands. 

APPEND 

LINES 1010-1140: The first thing, as in merge, is to call the setadd 
routine. On coming out though, it is slightly different. The new basic 
program start has to be reduced by two so will overwrite the end of 
memory program links. The appending program will load directly after 
the final line of the master program. On completion of the load, we 
store the loading end addresses (not in the end of program registers), 
but overwrite the original stored values, set by setadd. This means that 
on resetting the values, by reseti, we end up with the original start and 
the end marker corresponding to end of the appended lines. The final 
thing to do is to set the link addresses to follow as one program. This is 
carried out by the rom routine at $A533. The two programs have been 
joined together with our own form of 'superglue'. 


Delete 

COMMAND SYNTAX 

delete first line number,[second line number] 

The first line number to be deleted and the comma are essential and if 
missing will give errors. The second line number is optional in that if 
you want to delete to the end of the program you omit it; otherwise 
insert a number. 

Deleting a line of basic program is easy, you just type in the line 
number followed by a return. There is no real hardship in deleting one 
or two lines but longer blocks become tedious and time-consuming. 
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delete will rid you of a block of lines with one command. To do this we 
use the same rom routine as if deleting one line. What the basic rom 
does is to take the address of the line to be deleted and the link 
address within that line. It then takes the program starting at that link 
address to the end of the program and moves it to the address of the 
line to be deleted. For example, if we have a line whose address is $0901, 
its link address is $0925 (the start of the next line), and the end of the 
program is $0A45, the block to move is $0925 to $0A45 with its new starting 
address of $0901. Hence, the line at $0901 is overwritten or deleted. By 
the way, the variables and the arrays are also moved along with the 
block. 

It therefore goes to show that if we get the address of the next line 
after the 'second line number' and place it in the link address of the 
'first line number', a whole block of lines will be overwritten at once. 
Where there is no 'second line number' we take the end of program 
address and deduct two from it. This will give us the address of the two 
zero bytes at the end of a program. The first line number is placed in 
the input buffer, with a zero at the end of it signifying no further data, 
and goes to rom as if you typed it in. 

Two listings follow for this command. The reason for this is 
explained later. 

ASSEMBLY LISTING1 

? *=*8F44 


10 

BCC DEL 

1 PARAMETER A NUMBER 

20 SYNTAX 

JMP $AF08 

! GENERATE SYNTAX ERROR 

30 DEL 

JSR $81F5 

1 GET 1ST LINE NUMBER 

40 

JSR $A613 

! FIND LINE LOCATION 

50 

BCS FOUND 

! LINE NUMBER FOUND 

60 

LDX #$15 

! ILLEGAL DIRECT ERROR 

70 

JMP $A437 

1 ERROR ROUTINE 

80 FOUND 

LDA $5F 

! PUT LINE ADDRESSES 

90 

STA $FB 

! IN STORAGE 

100 

LDA $60 


110 

STA $FC 


120 

JSR $0079 

! CHECK FOR COMMA 

130 

CMP #$2C 


140 

BNE SYNTAX 

! NOT FOUND 

150 

JSR $0073 

' GET NEXT BYTE 

160 

BNE NUMERAL 

! A SECOND LINE NUMBER 

170 

SEC 

! PREPARE FOR SUBTRACT 

180 

LDA $2D 

1 END OF PROGRAM 

190 

SBC #$02 

! DEDUCT BY TWO 

200 

STA $5F 

! READY FOR DELETION 

210 

LDA $2E 

! END OF PROGRAM 
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228 

SBC #$00 

! IN CASE OF PAGE 



CROSSING 

230 

STA $60 

I READY FOR DELETION 

240 

BNE CONT 

! ENFORCED $2E CAN'T 



BE ZERO OR 1 

250 NUMERAL 

BCS SYNTAX 

! NO NUMBER 

260 

JSR $81F5 

! GET 2ND LINE NUMBER 

270 

INC $14 

1 SO WE GET 



FOLLOWING LINE 

280 

JSR $A613 

! FIND LINE 

290 

LDA $FC 

! CHECK IF 1ST NO IS 



SMALLER THAN 2ND 

300 

CMP $60 


310 

BCC CONT 


320 

BNE SYNTAX 


330 

LDA $FB 


340 

CMP $5F 


350 

BCS SYNTAX 


360 CONT 

LDY #$00 


370 

LDA $5F 


380 

STA <$FB),Y 

! STORE ADRESS 

390 

I NY 


400 

LDA $60 


410 

STA ($FB),Y 


420 

I NY 


430 

LDA ($FB),Y 

! GET 2 BYTE LINE NO 

440 

TAX 


450 

I NY 


460 

LDA <$FB),Y 


470 

JSR $847F 

! CONVERT TO ASCII 

480 


1 AND PUT INTO 



START OF INPUT BUFFER 

490 

PLA 

! REMOVE RETURN ADDRESS 

500 

PLA 


510 

LDX #$FF 

1 TO INITAILIZE 



INPUT BUFFER 

520 

LDA #$01 


530 

JMP $927D 

! WILL DELETE LINE 



AND RETURN TO BASIC 

8F91 CONT 

8F49 DEL 



8F56 FOUND 8F79 NUMERAL 

8F46 SYNTAX 
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ASSEMBLY LISTING2 
9 *=*927D 


10 

LDA $0302 

! SAME WARM START 

28 

STA ADD+1 


30 

LDA $0303 


40 

STA HADD+1 


50 

LDA #<ADD 

! CHANGE WARM START 

40 

STA $0302 


70 

LDA #>ADD 


30 

STA $0303 


90 

JMP $A484 

! DELETE BLOCK 

100 ADD 

LDA #$83 

! RESTORE WARM START 

110 

STA $0302 


120 HADD 

LDA #$A4 


130 

STA $0303 


140 

JSR $A533 

! RECHAIN LINES 

150 

CLC 

! PREPARE FOR ADD 

140 

LDA $22 


170 

ADC #$02 

! INCREASE FOR 
VARIABLE START 

180 

STA $2D 

1 START OF VARIABLES 

190 

LDA $23 


200 

ADC #$00 

! IN CASE OF CARRY 

210 

STA $2E 


220 

JSR $A440 

! CLR 

230 

JMP $A474 

! READY FOR BASIC 


9294 ADD 

929B HADD 

LISTINGI 



LINES 10-110: These instructions deal with the 'first line number'. The 
routine first checks the carry flag, set or unset by chrget on entering, 
and if set a syntax error is generated as the first byte after the delete 
token was not a numeral. A call to our get parameters routine is next, 
immediately followed by a visit to the rom routine find basic line. The 
result from get parameters is in the registers used to call find basic line. 
On returning from the latter, if the carry is not set, then the line was 
not found and we therefore generate a further error. The address of 
the first line is placed in locations $fb and $fc. 

LINES 120-280: The remaining parameter is now dealt with, chrget is 
positioned to where the comma should be, so we call chrgot to see if it 
is there. A call to chrget now will get the first byte of the second line 
number. If no line number is present, the zero flag will be set. In that 
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case we gather in the address of the end of the program, deduct two 
from it, and store the result in registers $5F and $60. 

If the zero flag was not set, we make a further check as earlier to see 
if the byte picked up by chrget was a numeral, get parameter is called to 
get the second line number and the low byte result in $14 is increased 
by one. This is done as we do not require the address of that line but 
rather the one following it. After the visit to find basic line the address in 
$5F and $60 will be the next line, whether its line number is one or ten 
greater than the 'second line number'. 

LINES 290-350: These instructions check to see that the address of the 
'second line number' is higher than that of the first, otherwise a syntax 
error is given. 

LINES 360-480: Here we insert the second address we found into the 
link address position of the first line. We then get the line number, in 
its two byte format, putting the low byte in the x register and the high 
into the accumulator. We now call another routine which we coded at 
$847F in the utility where the number will be converted to ASCII and 
placed in the input buffer, starting at $ 0200 , with a zero at the end. 

LINES 490-530: From the stack we remove the return addresses which 
were placed there on entering delete. The x register and the accumula¬ 
tor are given the address of the input buffer less one which will be the 
chrget address. The final thing is to jump to the second listing. 

LISTING2 

LINES 10-230: The rom routine that we will use is not a subroutine but 
ends up at the basic Warm Start Vector. We want to return here so we 
first store its present values and replace them to point back to these 
lines. We now go to rom where it will treat the number in the input 
buffer as if you were deleting a single line from the keyboard, but as 
we have changed the link address it will delete more than one. 

On returning, we restore the basic Warm Start Vector. We now 
subject the program to the rechain routine - not that it requires it, but 
from this routine we can calculate the end address. From the address 
the rechain routine ends with, we add two and set the end of program 
registers. A call to the clr routine will set the remaining variable 
addresses. Finally, we jump to basic, printing 'ready' and give you back 
control. 

The reason for two listings is due to the way in which the rom memory 
moving routine sets the end of program address. We came across this 
when testing the utility. The basic normally expects lines of around 80 
characters and definitely no more than 255. Mainly for the latter reason 
the rom routine only decreases the end address by the maximum of a 
page. It does not affect the deletion, but it did not make the required 
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reduction in memory used. The second listing was added to overcome 
the times when the number of lines took more than 256 bytes. Thus in 
the second listing we were able to set the addresses ourselves. 


Memory - Display number of bytes free 

COMMAND SYNTAX 
MEM 

There are no parameters in this command. The command is available 
only in direct mode. If found in a program the routine is not carried 
out. 

basic has a command that prints out the amount of space available to it. 
It is fre(x) where x is a dummy argument. Unfortunately it returns, when 
used with print, an integer value which means any value over 32767 <$7FFF) 
will be a negative number. For example, if the number of bytes free is 
36500, the result printed would be - 29035 . If you add that, with the sign, 
to 65535 ($fff), you will arrive at the true figure of 36500. We produce 
here a short routine to print out the correct value straight away. Having 
said that, with the utility in place, the maximum space available is less 
than 32768 and so fre(x) will always print out the correct value. 

The first thing to do is call a rom routine to do a 'garbage collection'. 
It is at $B526 and tidies up the variable and string area. It will reset the 
necessary registers after the compaction. The area of memory that is 
unused will be from the end of arrays to the beginning of the area used 
by strings. If we take the higher address from the lower, we will have 
the number of free bytes available. 

The routine that we have used to print the result to the screen is a 
subroutine of the hex command, which is described later. Suffice to say 
that on calling this subroutine with the low byte in the y register and 
the high in the accumulator, it will convert it to ASCII and print the 
result to the screen. 

To check whether you are in direct mode, we look at location $9D(i57). 
This will hold $80 ( 128 ) for direct or $00 for program mode. 

ASSEMBLY LISTING 

9 *=$85FC 


10 

LDA $?D 

! DIRECT OR PROGRtfl 

20 

BNE MEM 

! DIRECT ONLY 

30 

RTS 

! PROGRAM NOT EXECUTED 

40 HEM 

JSR $B526 

! ROM COLLECT GARBAGE 

50 

SEC 

! PREPARE FOR SUBTRACT 

60 

LDA $33 

! POINTER START OF 
STRING STORAGE 

70 

SBC $31 

! POINTER END OF ARRAYS 
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80 

TAY 

! TEMP STORE 

90 

LDA $34 

1 POINTER START OF 



STRING STORAGE 

100 

SBC $32 

! POINTER END OF ARRAYS 

110 

JMP $85AD 

! COWERT TO ASCII 


AND PRINT TO SCREEN 


8601 HEM 
Coder 

COMMAND SYNTAX 
CODER 

There are no parameters to this command. 

How many times have you picked up a listing from a magazine and 
wondered what graphic symbol is in that print statement? Is it a shifted 
n graphic or shifted l? How many have been used together, is it 2 or 3? 
You then come across a colour code and have to look it up in the 
manual to remember which colour to program. Owners of non- 
Commodore printers also have a problem as these symbols and gra¬ 
phics do not print. 

We would like to introduce a routine that replaces these graphics 
with mnemonics. For example, the symbol for clear screen would be 
replaced by iclsi. 

Except for one, all the codes we want to change appear within 
quotes. That means we have to look through the program for a quote 
and when found look for ASCII values that we want to change until the 
end of the line or the second quote appears. Having found one, we 
also have to look to see if it has been repeated. This done, we will 
either calculate the new code or find one in a data table. The codes 
produced will be of a different length from the original, but if it 
repeats, may be of shorter overall length. To accommodate this, we 
will use the memory move routines described in Chapter 6. 

The one exception we mentioned earlier is the mathematical 'pi' 
(3.14159, etc). This we also found does not appear on some listings and 
is essential if in a mathematical equation. This is therefore coded 
whether in or out of quotes. 

Most of the program operation is described after the assembly listing 
(see below), but before the listing we would like to say a word or two 
about the data make-up. This can be split into two sections. Graphics 
that are obtained by using the shift with most of the 'letter' keys can be 
calculated directly to the ASCII code of that particular letter. The 
remaining graphics and codes require the use of data tables. 

We have employed two tables and stored them out of the way under 
the basic rom. The first table, the data address table, has the three bytes 
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for each character we are going to encode. The first byte is the ASCII 
value of the character and is followed by the address within the second 
table where the data is stored. The second table, the data table, holds 
all the data for those characters. The data will be the characters printed 
between the [ ] brackets, and may be of differing length. Because of 
this the first byte is the number of bytes of data. 

What are we going to produce instead of all these graphics and 
codes? These are listed in Appendix I and are mainly self-explanatory. 
However, an explanation of two of them is required. If you look at the 
Programmer's Reference Guide , page 74, under 'Other Special Charac¬ 
ters', you will see five functions available. Three of these can be 
achieved more easily than described in the PRG. These are SWITCH TO 
LOWER CASE, DISABLE CASE-SWITCHING KEYS and ENABLE CASE¬ 
SWITCHING KEYS. They can be obtained by simply holding down the 
Ctrl key and appropriate letter. In quotes they will print the appropri¬ 
ate symbol. Out of quotes the action will be carried out. The remaining 
two 'special characters' are implemented in the way the PRG describes. 
We have given them codes of [CRG>M] and [CRG>ni. These stand for Ctrl 
revs graphic shift richt and the appropriate letter. 

ASSEMBLY LISTING 


7 OPEN 

= $8933 


8 CLOSE 

= $8888 


9 *=$3B93 



10 

LDX #$00 

! INITIALIZE QUOTE 



COUNTER 

29 

LDA $2B 

! GET AND STORE 



START OF BASIC PROG 

30 

STA $FB 


40 

LDA $2C 


58 

STA $FC 


80 LINKS 

LDY #$00 

! SET Y TO BEGINNING 



OF LINE 

70 

LDA ($FB),Y 

! GET ADD OF NEXT LINE 

80 

STA $FD 

! STORE FOR LATER 

90 

I NY 


100 

LDA <$FB),Y 


110 

STA $FE 


120 

BNE CONT 

! NOT END OF BASIC PROG 

130 

PLA 

! REMOVE RETURN ADDRESS 

140 

PLA 


150 

JMP $A474 

1 GOTO "READY FOR 



BASIC"-END OF CODER 

180 CONT 

I NY 

! SKIP LINE NUMBER 

170 

I NY 
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188 

NEXT 

I NY 





190 


LDA 

<$FB> 

rY 

1 

GET BYTE OF PROG LINE 

200 


BNE 

CONTI 


! 

ZERO SIGNIFIES END 







OF LINE 

210 


LDA 

$FD 


i 

GET NEXT LINE ADDRESS 

220 


STA 

$FB 


i 

PUT IN CURRENT 







LINE REGISTERS 

230 


LDA 

$FE 




240 


STA 

$FC 




250 


LDX 

#$00 


i 

RESET QUOTE COUNTER 

260 


BEQ 

LINKS 


i 

X SETS ZERO FLAG - 







BRANCH ENFORCED 

270 

CONTI 

CMP 

#$FF 


! 

IS IT pi 

280 


BNE 

NOPI 


i 

NO 

290 


STA 

$3E 


i 

STORE VALUE 

300 


BEQ 

C0NT2 


i 

ENFORCED 

310 

NOPI 

CMP 

#$22 


! 

IS BYTE A QUOTE 

320 


BNE 

CHECK 


i 

NO GO TO SEE IF IN 







QUOTES 

330 


I NX 



! 

IT'S A QUOTE SO INC- 







COUNTER 

340 


CPX 

#$02 


i 

IS IT SECOND QUOTE 

350 


BNE 

INQUOTES 

i 

IN QUOTES CODER IN 







ACTION 

360 


LDX 

#$00 


i 

RESET COUNTER 

370 


BEQ 

NEXT 


i 

ENFORCED 

380 

CHECK 

CPX 

#$01 




390 


BNE 

NEXT 


i 

NOT IN QUOTES 

400 

INQUOTES 

STA 

$3E 


i 

STORE BYTE 

410 


CMP 

#$C0 


i 

IS IT LESS THAN 192 

420 


BCC 

COMPARE 

! 

YES 

430 


SBC 

#$60 


i 

NO SUBTRACT 96 

440 

COMPARE 

CMP 

#$60 


! 

IS IT > OR = TO 96 

450 


BCS 

C0NT2 




460 


CMP 

#$21 


! 

IS IT LESS TH*N 21 

470 


BCS 

NEXT 


i 

CHARS 21 - 95 







DON'T REQUIRE CODING 

480 

CQNT2 

STA 

$3D 


i 

STORE REVISED CK*R 







VALUE 

490 


STY 

$49 


f 

STORE LINE MARKER 

500 


STX 

$3C 


i 

STORE QUOTE COUNTER 

510 


LDX 

#$01 




520 

NEXT1 

I NY 





530 


LDA 

($FB) 

,Y 

i 

GET NEXT CHAR 

540 


CMP 

$3E 


i 

IS A REPEAT ClttR 

550 


BNE 

NEXT 2 


i 

NO 
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5 <48 

I NX 


570 

BNE NEXT1 

! ENFORCED 

530 NEXT2 

STX *3E 

! REG - NO OF REPEATS 

590 

CPX #*02 


600 

BCS C0NT3 

! MORE THAN ONE CHAR 

<610 

DEX 


620 

LDA *3D 

! GET CHAR BACK 



AGAIN 

630 

CMP #*20 

! IS IT A SPACE 

640 

BEQ SPACE 

! DON'T CODE SINGLE 
SPACE 

650 

LDA #*00 


660 

STA *40 

! RESET REG WITH ASCII 
FOR NO OF REPEATS 

670 

STA *3F 


680 

BEQ C0NT4 

! ENFORCED 

690 SPACE 

JMP RELOAD 

! RELOAD REGISTERS 

FOR GET NEXT BYTE 

700 C0NT3 

LDA #*00 

! X HAS LOU VALUE - 
NO HIGH VALUE 

710 

JSR *847F 

! NO OF REPEATS INTO 
ASCII FORM 

720 

LDX #*00 


730 

LDA *0200,X 

! GET ASCII INTO REGS 

740 

STA *3F 


750 

I NX 


760 

LDA *0200,X 


770 

STA *40 


780 C0NT4 

LDA *3D 


790 

CMP #*61 


800 

BCC COWERTB 


310 

CMP #*7B 


820 

BCS CONVERTB 


830 CONVERTA 

SEC 


840 

SBC #*20 ! 

! REDUCE VALUE 

850 

STA *3D 


860 

LDX #*07 

! TOTAL NO OF SPACES 
REQUIRED 

870 

LDA *40 


880 

BNE CQNT5 ! 

1 MORE THAN 9 REPEATS 

898 

DEX 


900 

LDA *3F 


910 

BNE C0NT5 ! 

SOME REPEATS 

920 

DEX 


930 C0NT5 

CPX *3E ! 

FIND HOU MUCH ROOM 

940 

BEQ NGMOVE ! 

RIGHT AMOUNT OF SPACE 
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950 


BCS 

OPENUP 

1 NEEDS SPACE IN LINE 

960 


JSR 

CLOSE 

! GET RID OF 

UNWANTED CIttRS 

970 


JMP 

NOMOVE 

! CONT WITH PROG 

980 

OPENUP 

JSR 

OPEN 

! NOT ENOUGH ROOM IN 
LINE 

990 

NOMOVE 

LDY 

*49 

! GET LINE POINTER 

1006 


LDA 

#*5B 

1 ASCII FOR I 

1010 


STA 

<*FB),Y 

! PUT IN LINE 

1020 


LDA 

*40 


1030 


BEQ 

C0NT6 

! NO TENS DIGIT 

1040 


INY 



1050 


STA 

<*FB),Y 


1060 

C0NT6 

LDA 

*3F 


1070 


BEQ 

C0NT7 

1 NO REPEATS 

1080 


INY 



1090 


STA 

(*FB),Y 


1100 

CGNT7 

LDA 

#*47 

i ASCII FOR G 

1110 


INY 



1120 


STA 

<*FB),Y 


1130 


LDA 

#*3E 

1 ASCII FOR > 

1140 


INY 



1150 


STA 

<*FB),Y 


1160 


LDA 

*3D 

! CHAR 

1170 


INY 



1180 


STA 

(*FB),Y 


1190 


LDA 

#*5D 

! ASCII FOR I 

1200 


INY 



1210 


STA 

<*FB),Y 


1220 


LDX 

*3C 

1 RESET QUOTE COUNTER 

1230 


JMP 

NEXT 

! NEXT BYTE 

1240 

CONVERTB 

STA 

*3D 


1250 


LDA 

#*50 

! LSB OF DATA 

ADDRESS TABLE 

1260 


STA 

*62 


1270 


LDA 

#*A3 

! MSB OF D.A.T. 

1280 


STA 

*63 


1290 


LDX 

#*51 

! COUNTER MAX NO OF 
CHARS IN DATA 





TABLE 

1300 


LDY 

#*00 


1310 

NEXT 3 

JSR 

*81FB 

! SWITCH OF BASIC 

1320 


LDA 

<*62),Y 

! GET ASCII CHAR NO 

1330 


Pftt 


! TEMP STORE 

1340 


JSR 

*8202 

1 SWITCH IN BASIC 

1350 


PLA 


1 RETRIEVE 
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1360 

CMP $3D 

1370 

BEQ FOUND 

1380 

I NY 

1398 

I NY 

1400 

I NY 

1410 

DEX 

1420 

BPL NEXT3 

1438 

LDA $3D 

1448 

CMP #$1B 

1450 

BCC CTRL 

1460 

LDX #$0D 

1478 

JMP $A437 

1480 CTRL 

ADC #$40 

1490 

STA $A448 

1500 

LDA #$43 

1510 

STA $62 

1520 

LDA #$A4 

1538 

STA $63 

1540 

BNE C0NT8 

1550 FOUND 

I NY 

1560 

JSR $81FB 

1578 

LDA ($62),Y 

1588 

PHA 

1598 

I NY 

1600 

LDA ($62),Y 

1610 

STA $63 

1620 

JSR $8282 

1638 

PLA 

1640 

STA $62 

1658 C0NT8 

LDY #$00 

1660 

JSR $31FB 

1670 

LDA ($62),Y 

1680 

STA $C1 

1690 

JSR $8202 

1700 

LDA $C1 

1718 

CLC 

1728 

ADC #$04 

1730 

TAX 


IS IT THE SAME 
YES 

SKIP UNWANTED ADDRESS 


! DECREASE COUNTER 
' GET NEXT ASCII NO 
UNTIL X<0 

! SEE IF IT USED 
WITH CTRL KEY 
! YES 
! NO 

! ERROR OUT OF DATA 
! ADD $48 TO GIVE 
ASCII LETTER 
1 STORE IN DATA TABLE 
! LSB OF DATA FOR 
lCTRL?] 

! MSB OF DATA FOR 
tCRTL?] 


! SWITCH OUT BASIC 
! GET LSB OF DATA 
POSITION 
I TEMP STORE 

! GET MSB OF DATA 
POSITION 

! SWITCH IN BASIC 


! GET NO OF DATA CHARS 


! FOR BRACKETS AND 
REPEATS 
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1748 

LDA 

CD 

rt 

* 



1759 

BNE 

C0NT9 



1760 

DEX 



! NO TENS IN REPEATS 

1770 

LDA 

$3F 



1780 

BNE 

C0NT9 



1790 

DEX 



! NO REPEATS AT ALL 

1800 C0NT9 

CPX 

$3E 


! DO WE REQUIRE A 





MEMORY MOVE 

1810 

BEQ 

NOMOVE1 

! NO 

1820 

BCS 

OPEN1 


i MORE SPACE 

1830 

JSR 

CLOSE 


! LESS SPACE 

1840 

JMP 

NOMOVE 1 


1850 0PEN1 

JSR 

OPEN 



I860 N0M0VE1 

LDY 

$49 


! GET LINE MARKER 

1870 

LDA 

#$5B 


! ASCII FOR C 

1880 

STA 

<$FB), 

Y 


1898 

LDA 

$3F 



1900 

BEQ 

CONTA 


! NO TENS DIGIT IN 





REPEATS 

1910 

I NY 




1920 

STA 

<$FB) 

,y 

! STORE IN PROG 

1930 CONTA 

LDA 

$40 



1940 

BEQ 

CONTB 


1 NO REPEATS AT ALL 

1950 

1NY 




I960 

STA 

<$FB) 

*Y 

! STORE IN PROG 

1970 COIMTB 

STY 

$49 


! STORE LINE MARKER 

1980 

LDY 

#$00 



1990 

JSR 

$81FB 


! SWITCH OUT BASIC 

2000 DATA 

I NY 




2010 

LDA 

<$62) 

.Y 

! GET DATA FROM 





TABLE 

2020 

STY 

$C2 


! STORE DATA MARKER 

2030 

LDY 

$49 


! GET LINE MARKER 

2040 

I NY 




2050 

STA 

($FB) 

.Y 

! STORE DATA IN PROG 





LINE 

2060 

STY 

$49 


! STORE LINE MARKER 

2070 

LDY 

$C2 


! GET DATA MARKER 

2080 

CPY 

$C1 


! HAVE WE GOT ALL DATA 

2090 

BNE 

DATA 


! NO 

2100 

JSR 

$8202 


! SWITCH IN BASIC 

2110 

LDY 

$49 



2120 

LDA 

#$5D 


! ASCII FOR ] 

2130 

I NY 




2140 

STA 

($FB) 

.Y 
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2150 

LDX $3C 

! GET QUOTE COUNTER 

21 69 

JMP NEXT 

! NEXT BYTE TO PROCESS 

2170 RELOAD 

LDY $49 

I GET LINE MARKER 

2180 

LDX $3C 

! GET QUOTE COUNTER 

2190 

JMP NEXT 

! NEXT BYTE TO PROCESS 


8BD7 

CHECK 

8889 

CLOSE 

8BE3 

COMPARE 

8BAF 

CONT 

8BC2 

CONTI 

8BEB 

C0NT2 

8C15 

C0NT3 

8C27 

C0NT4 

8C42 

C0NT5 

8C5E 

CONT <4 

8C<45 

C0NT7 

8CCC 

CONT 8 

8CDF 

C0NT9 

8D84 

CONTA 

8D0B 

CONTB 

8C7E 

CONVERTB 

SCAB 

CTRL 

8D12 

DATA 

8CBA 

FOUND 

8BDB 

INQUOTES 

8B9D 

LINKS 

8BB1 

NEXT 

8BF3 

NEXT1 

8BFD 

NEXT 2 

8C8C 

NEXT 3 

8C51 

NOMOUE 

BCF7 

NOMOVE1 

8BCA 

NOPI 

3931 

OPEN 

3CF4 

QPEN1 

8C4E 

OPENUP 

3D33 

RELOAD 

8C12 

SPACE 




LINES 10-150: These set up the routine and if necessary return control 
back to you through basic. There are no parameters included in the 
command to pick up as it codes the whole program. The address of the 
first line is taken from the start of basic program variables at $2B and $2C. 
The x register is initialized to zero and is used as a quote counter. We 
get the link address to the next line and if it is the end of the program 
we remove the return address from the stack, placed there on 
entering, and go back to basic with the program in memory coded for 
listing or saving. 

LINES 160-390: We are going to start to look for our trigger codes - 
quotes or pi. We skip the line number and start to scan. If the end of 
the line is encountered we transfer the links to the line register and 
start the next line. 

We check for pi (ASCII value is $ff). On finding it, we store it in a 
register for later use and branch further into the program. The check 
for the quote takes two forms. When one is found, we increase and 
check the x register. A two here will indicate that it is the second quote 
and therefore going out of the area we are interested in. It also means 
we go back to look for another quote. 

If x is one, then the first quote has been found and we go forward to 
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check for codes. It will fail there the result is that we return to get the 
next byte. 

On encountering a byte other than a quote or pi, we check to see if 
the x register is one, indicating that we are in quotes and it will require 
processing. 

LINES 400-470: We first store the byte. This is done as we are going to 
manipulate this data and possibly alter it. The original value is needed 
later when checking for repeat characters. 

Values over $C0 (192) are reduced by $60 (%) and we are in a position to 
weed out characters that do not require any action. These will be 
values of $21 to $5F inclusive. This is the position that the first quote will 
end up in. These characters cause the flow to go back and get the next 
byte. 

LINES 480-690: Our character value is stored again, as it may be 
different, in another register. We also store the line pointer (the y 
register) and the x quote counter. The latter is stored because if pi is 
being changed, the x register could be zero; at other times it will 
always be one. 

The next procedure is to see if there is more than one character of 
the same type consecutively in the program. The x register will be used 
as a counter and as it is one already, it is already initialized. The 
following bytes are gathered in and checked against the original value. 
The x register is increased until a byte of a different value is found. 

The routine now splits up. Where there are two or more repeat 
characters, we jump ahead to CONT3 to put that number into ASCII. 

Continuing along, the x value will be one but we will not print out 
the number one as it implied. Registers $3F and $40 are set to zero, 
which as we shall see shortly will hold the ASCII value for repeats. 

The action taken is to check to see if the character we are coding is a 
space or not. We do not want to code single spaces as it would clutter 
the listing unnecessarily. On finding a space the flow jumps further 
ahead to reload the registers and go back to get the next byte. For 
characters not spaces, and all single characters, the routine branches 
forward to skip the next section. 

LINES 700-770: On finding more than one of the same character we 
want to convert the number into ASCII format. We already have the 
number in the x register. To use our own conversion routine at $ 847 F we 
need to set the accumulator to zero, as the high byte value. The result 
will be in the input buffer with a zero after the last digit. As a line of 
basic program when typed into the 64 cannot be more than 80 charac¬ 
ters, it therefore means that the number of repeats cannot be any 
greater. This means that the number of ASCII digits will be two at a 
maximum. 

We therefore pick up the first two digits from the buffer and store 
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them in $ 3 F and $ 40 . If there was a single digit, that is 2 to 9 repeats, $40 
will be zero. 

LINES 780-820: We said at the beginning that some characters would 
require the use of the data tables whilst some can be coded by calcula¬ 
tion. These few lines divide up the flow into these two areas. 

We load back the value achieved in earlier calculations (lines 
410-440) to the accumulator. Values of $60 and under, or $ 7 B and over, 
will branch off to Conversion B, which uses data tables. 

CONVERSION A 

LINES 830—1230: The first task to undertake is to subtract $20 (32) from 
our value and store it. This is now the same value as the ASCII code of 
the letter of the key it shares. They will all be achieved using the shift 
with the key rather than the logo key. 

The maximum number of characters we could insert is seven, two for 
the brackets, two for the number of repeats and three for the code. 
This number is placed into x. We check the 'repeat' digits storage for 
the number of numerals. A zero will indicate that there is no digit in 
that column. The x register will be decreased accordingly. Location $3E 
has the number of graphic characters to be coded and this is compared 
with x. From this we either open-up the program, close-up the pro¬ 
gram or leave it unchanged. The memory move routines are described 
in Chapter 6. 

Now we are ready to insert the code in the order of: 

i) The [ bracket. 

ii) The number of repeats if applicable. 

iii) The letter G. 

iv) The symbol >. 

v) The letter of the key, held in location $3D. 

vi) The ] bracket. 

Once completed, we load the quote counter back into x and jump 
back to get the next character to code. 

CONVERSION B 

LINES 1240-1640: This is where we have to use data tables to find the 
relevant code. This part is entered with the character value in the 
accumulator and is put into $ 3 D for later use. The first table we look up 
is the data address table. The start address of the table is placed in 
locations $62 and $ 63 . The x register has the total number of characters 
catered for and the y register is used as a general pointer. 

As the table is in the ram under the basic rom we have to disable 
that rom, get the byte we want and then switch back the rom. The byte 
is placed temporarily on the stack during the enabling of the rom. The 
byte we have collected is compared for equality with our character 
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value. Succeeding forces a branch forward. Failure means we continue 
the search. The first thing is to increase the y register three times. This 
will skip the address of the rejected character in the data table. The y 
value will be in line with the next character value. If the x register has 
been decreased to a value below zero, that is, $ff, then all the data 
address table has been checked and a match not found. There is one 
further chance. It could be a character which uses the Ctrl key along 
with a letter key. These will have values no greater than $ia (26). This is 
checked and if it does not fall in, then an 'out of data' error is 
generated and coder is exited. We think that this should never come 
about as we believe we have catered for all eventualities. 

Supposing a Ctrl value is the one found, then we add $40 (64). This 
simply gives the value of the letter on the key. This is stored immedi¬ 
ately in the data table. The start address of the start of Ctrl data is 
placed into $62 and $63. 

Now back to the other characters. A match has been found in the 
data address table and we have arrived at line 1550. The two bytes next 
in line in the address table are the data address in the second table. 
These are placed into registers $62 and $63. 

LINES 1650-2160: We have now finished with the data address table 
and concentrate on the data table itself. This time we only require one 
byte, the first byte, which will give us the number of bytes of code. To 
this value we add four, the brackets and the 'repeat' digits, transfer it to 
x and decrease it if one or both repeat digits are redundant. This final 
value is compared with the number of characters to be replaced to 
determine whether more or less space is required. This and the moves, 
if needed, are achieved in lines 1800 to 1850. 

The insertion of data is the only thing left to do. We reload the line 
marker and start. The left square bracket and, if required, the repeat 
digits are stored first. The data insertion is slightly complicated. The 
line marker is stored and the y register is re-initialized. The basic rom is 
switched off and a byte is taken from the table. The y register is stored 
in $C 2 and the line marker is restored and incremented. The byte is now 
inserted in the program. Now the line marker is stored and the data 
marker placed back in y. This is compared with the number of bytes of 
data in the code ($C 2 ). If it has not reached this number, we branch back 
to get further bytes to insert. Once all the data has been collected and 
stored, the basic rom is switched back in. 

Finally, the right hand square bracket is inserted and we jump to get 
the next character to be coded, after restoring the quote counter. 

LINES 2170-2190: This simply restores the line marker and quote 
counter, after which the routine goes back to get the next character. 
Single space characters, which are not coded, are sent here. 
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The data table - a program 

After much thought, we have decided to supply the data tables for 
coder in the form of a basic loader. This is mainly due to the fact that it 
is stored under the basic: rom which makes it hard to check and correct 
using a monitor. With the loader program we can put in a checksum 
which helps to see if you typed in the correct values. 

A further item that the loader program does is to clear the area used 
by the key command (see Chapter 4 ) for its data. So type in the 
program, check it and save it. 

10 L=41472:T=0 

20 READD:IFD=-1THEN40 

30 T=T+D:POKEL,D:L=L+1:GOTO20 

40 I FT051131THENPRINT"[REU3 DATA INCORR 

EOT":END 

50 F0RL=41216T041471:POKEL,0:NEXT 

60 PRINT"[REU1 DATA LOADED":END 

70 DATA3,87,72,84,2,67,68 

80 DATA3,82,69,86,3,72,79 

90 DATA77,3,82,69,68,2,67 

100 DATA82,3,71,82,78,3,66 

110 DATA76,85,3,83,80,67,3 

120 DATA71,62,42,3,71,62,43 

130 DATA3,71,60,45,3,71,62 

140 DATA45,1,126,3,71,60,42 

150 DATA3,79,82,71,2,70,49 

160 DATA2,70,51,2,70,53,2 

170 DATA70,55,2,70,50,2,70 

180 DATA52,2,70,54,2,70,56 

190 DATA3,66,76,75,2,67,85 

200 DATA3,79,70,70,3,67,76 

210 DATA83,3,73,78,83,3,66 

220 DATA82,78,5,76,32,82,69 

230 DATA68,3,71,82,49,3,71 

240 DATA82,50,5,76,32,71,82 

250 DATA78,5,76,32,66,76,85 

260 DATA3,71,82,51,3,80,85 

270 DATA82,2,67,76,3,89,69 

280 DATA76,3,67,89,78,5,71 

290 DATA62,83,80,67,3,71,60 

300 DATA75,3,71,60,73,3,71 

310 DATA60,84,3,71,60,64,3 

320 DATA71,60,71,3,71,60,43 

330 DATA3,71,60,77,3,71,60 

340 DATA92,3,71,62,92,3,71 

350 DATA60,78,3,71,60,81,3 
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360 DATA71,60,68,3,71,60,90 
370 DATA3,71,60,83,3,71,60 
380 DATA80,3,71,60,65,3,71 
390 DATA60,69,3,71,60,82,3 
400 DATA71,60,87,3,71,60,72 
410 DATA3,71,60,74,3,71,60 
420 DATA76,3,71,60,89,3,71 
430 DATA60,85,3,71,60,79,3 
440 DATA71,62,64,3,71,60,70 
450 DATA3,71,60,67,3,71,60 
460 DATA88,3,71,60,86,3,71 
470 DATA60,66,5,67,84,82,76 
480 DATA65,5,67,84,82,76,66 
490 DATA5,67,84,82,76,72,5 
500 DATA67,84,82,76,73,5,67 
510 DATA84,82,76,78,5,67,82 
520 DATA71,62,78,5,67,82,71 
530 DATA62,77,3,68,69,76,2 
540 DATA80,73,255,0,0,0,0 
550 DATA5,0,162,17,4,162,18 
560 DATA7,162,19,11,162,28,15 
570 DATA162,29,19,162,30,22,162 
580 DATA31,26,162,32,30,162,96 
590 DATA34,162,123,33,162,124,42 
600 DATA162,125,46,162,126,50,162 
610 DATA127,52,162,129,56,162,133 
620 DATA60,162,134,63,162,135,66 
630 DATA162,136,69,162,137,72,162 
640 DATA138,75,162,139,78,162,140 
650 DATA81,162,144,84,162,145,88 
660 DATA162,146,91,162,147,95,162 
670 DATA148,99,162,149,103,162,150 
680 DATA107,162,151,113,162,152,117 
690 DATAl62,153,121,162,154,127,162 
700 DATAl55,133,162,156,137,162,157 
710 DATAl41,162,158,144,162,159,148 
720 DATAl62,160,152,162,161,158,162 
730 DATAl62,162,162,163,166,162,164 
740 DATAl70,162,165,174,162,166,178 
750 DATAl62,167,182,162,168,186,162 
760 DATAl69,190,162,170,194,162,171 
770 DATAl93,162,172,202,162,173,206 
780 DATA162,174,210,162,175,214,162 
790 DATAl76,218,162,177,222,162,178 
800 DATA226,162,179,230,162,180,234 
810 DATAl62,181,238,162,182,242,162 
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820 DATA183,246,162,184,250,162,185 
830 DATA254,162,186,2,163,187,6 
840 DATA163,188,10,163,18?,14,163 
850 DATA190,18,163,191,22,163,1 
860 DATA26,163,2,32,163,8,38 
870 DATA163,9,44,163,14,50,163 
880 DATA142,56,163,141,62,163,20 
890 DATA68,163,255,72,163,5,67 
900 DATA84,82,76,67,-1 

SAVING THE DATA AREA 

The following listing will save the area we have used for both key and 
coder routines. The saving of data through machine code is described 
in the Programmer's Reference Guide. The only extra coding is to 
switch the basic rom out, so that we will save our data and not the basic 
interpreter. You could use this after setting up the function keys (see 
Chapter 4) so on reloading, the data is there and ready. 


10 

LDX 

#*0S 

20 

LDA 

#*01 

30 

LDY 

#*FF 

40 

JSR 

*FFBA 

50 

LDA 

#*0C 

60 

LDX 

#<NAME 

70 

LDY 

#>NAME 

30 

JSR 

*FFBD 

90 

LDA 

*01 

100 

AND 

#*FE 

110 

STA 

*01 

120 

LDA 

#*00 

130 

STA 

*FB 

140 

STA 

#*A1 

150 

STA 

*FC 

160 

LDX 

#*49 

170 

LDY 

#*A4 

130 

LDA 

#*FB 

190 

JSR 

*FFD8 

200 

LDA 

*01 

210 

ORA 

#*01 

220 

STA 

*01 

230 

RTS 


240 NAME 

TXT 

“UTILIT 


DEVICE NO <TAPE=1> 
LOGICAL FILE NO 
NO SEC ADDRESS 
SETLFS 

CHARS IN FILENAME 
LOW ADDRESS OF NAME 
HIGH ADDRESS 
SETNAM 

SWITCH OFF BASIC 


! STORE START ADDRESS 


LOW END OF SAVE 
HIGH END OF SAVE 
LOCATION OF START ADD 
SAVE 

SWITCH IN BASIC 


Y DATA" 
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RELOCATING THE DATA TABLES 

If you relocate coder may also want to relocate the data. Here is one 
suggested way. Using the basic loader program for the data, change the 
value of l in line 10 to the new data start address. The data normally 
starts at $A 20 O ( 41472 ) but the data address table starts at $A35@ (4i8U8). From 
this calculate the data address table new address and put its value in 
lines 10 and 30 of the routine below. The end of the data address table 
is normally SA442 (42050), so work out its new end, subtract one, and this 
is put in lines 210 and 240. The difference between the old address and 
the new address should be put in lines 80 and 120. The routine below is 
for a new table at a higher address; for one lower, change the addition 
to subtraction and set the carry instead of clearing it. 


10 

LDA #*50 

20 

STA *14 

38 

LDA #*A3 

48 

STA *15 

50 NEXT 

LDY #*01 

60 

LDA <*142 

70 

CLC' 

30 

ADC #*60 

90 

STA <*14) 

100 

I NY 

110 

LDA <*14) 

120 

ADC #*25 

130 

STA <*14) 

140 

CLC 

150 

LDA *14 

1 <40 

ADC #*03 

170 

STA *14 

180 

LDA *15 

198 

ADC #*00 

200 

STA *15 

210 

CMP #*A4 

220 

BNE NEXT 

230 

LDA *14 

240 

CMP #*43 

250 

BNE NEXT 

2 60 

RTS 


1 START OF DATA 
ADDRESS TABLE 


1 POINTER 

,Y ! LOW ADD IN TABLE 

1 ADD LOW DIFFERENCE 

,Y 

, Y ! HIGH ADD IN TABLE 
! ADD HIGH DIFFERENCE 

,Y 

! UPDATE TABLE ADDRESS 


! END OF DATA 
ADDRESS TABLE 
! NO 


! NO 
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Old 

COMMAND SYNTAX 
OLD 

There are no parameters with this command. 

There are four ways to lose' a basic program. The first way is by 
switching off and then there is absolutely no way of recovering it. 
Another two ways are by doing a system cold start or a reset. This is as 
if you have just switched on but retaining data held by the rams. This 
can be achieved by typing SYS64738 or by a reset button, if you have 
fitted one. The final way to lose a program is by issuing the basic com¬ 
mand NEW. 

To lose a program the operating system of the 64 sets the first two 
bytes of the basic program area to zero. This would normally be $0801 
and $0802 (2049 and 2050) and would be the link address in the first line of a 
basic program. This means that as far as basic is concerned no program 
is present as it would encounter the zeros straight away. 

Now as long as no further lines of basic are typed in, we can reverse 
the process, but will lose all the variables. The way it is done is made 
clear in the description of the coding. 

ASSEMBLY LISTING 

9 *=$8415 


10 

LDA #$FF 


20 

LDY #$01 


38 

STA <$2B),Y 

1 PUT AMY LINK IN 
1ST LINE 

40 

JSR $A533 

1 RECHAIN LINES 

50 

LDA $22 


60 

CLC 


70 

ADC #$02 


80 

STA $2D 

! SET END OF PROG 
ADDRESS -LOW 

90 

LDA $23 


100 

ADC #$80 

1 IN CASE CARRY WAS 
SET IN 70 

110 

STA $2E 

! SET END OF PROG 
ADDRESS -HIGH 

120 

JMP $A<4<*0 

! PERFORM CLR 


LINES 10—40: If we change the first two bytes from zero, basic will no 
longer think it is at the end of the program. We put $ff in those, and get 
the address from the start of basic variables in $2B and $2C. Now a call to 
the rom routine rechain lines will achieve two things. First, it will 
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correctly set the link address in the first line, and secondly, we will be 
able to set the end of program variables. 

LINES 50-120: Locations $22 and $23 are set to the beginning of the two 
zero bytes, which mark the end of the program, when the rechain 
routine is finished. By adding two to those, we have the end of 
program and can set the respective registers, $2D and $2E. 

The final thing is a jump to the clr routine. This will set all the 
variable addresses to coincide with the recovered program. The basic 
program is now restored to its original state. 


Dump 

COMMAND SYNTAX 
DUMP 

There are no parameters with this command. It will also only operate in 
direct mode. If used within a program it will just skip out of the 
command. Hitting stop will break out of dump and allows direct edit¬ 
ing; typing cont will resume at the break point in the basic program. 
Holding down any other key, apart from shift, will halt the routine until 
it is released. 

The action of dump is identical to the basic subroutine in Chapter 5 
except that as the routine is in machine code it does not add to the 
simple basic variables. The logic closely follows the basic routine. 
Output may again be directed to a printer by an open and cmd 
sequence. The major departure is in the use of one or two rom 
routines to carry out the mathematical conversions and convert the 
number to an ASCII string to be printed. 

ASSEMBLY LISTING 


? 

*=$3E52 


10 

1 NOTE REAL ASC- 

/ 

20 

! STRING ASC 

/ 

30 

1 INTEGER ASC+128 

/ 

40 

1 FUNCTION ASC+128 

/ 

50 

1 


6 0 

1 


70 

!TEST FOR DIRECT MODE 

80 

I 


90 

LDA $?D 


100 

CMP #$80 


118 

BEQ DIRECT 

120 

RTS 



130 f 

140 !N0TE CURRENT VARIABLE 


ASC OR 0 
ASC+128 OR 128 
ASC+128 OR 128 
ASC OR 0 


IMSGFLG 
!DIRECT ??? 

!PROGRAM MODE SO ABANDON 
IN FILE NAME POINTER 
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150 ! 


1 <60 

DIRECT 

LDA 

$2D 

'VARTAB 

170 


STA 

$BB 


130 


LDA 

$2E 

!VARTAB+1 

190 


STA 

$BC 


200 

i 




210 

!RETURN TO HERE 

TO SEP 

IF ALL DONE 

220 

START 

LDA 

$BC 


230 


CMP 

$30. 


240 


BNE 

CONT 

!MORE VARIABLES 

250 


LDA 

$BB 


260 


CMP 

$2F 


270 


BNE 

CONT 


280 


RTS 


!DONE ALL OR WERE 





NONE TO START 

290 

1 




300 

'FIND 

VARIABLE TYPE 


310 

1 




320 

CONT 

LDY 

#$00 


330 


LDA 

<$BB),Y 

!FIRST CHAR OF NAME 

340 


CMP 

#$80 


350 


BCS 

INTFN 

(INTEGER OR FUNCTION 

360 

1 




370 

1 STRINGS AND REAL 


375 

1 




330 


JSR 

$FFD2 

•OUTPUT ASCII CHAR 

390 


INY 



400 


LDA 

•:$bb> , Y 

(GET SECOND CHAR 

410 


CMP 

#$7F 


420 


BCS 

STRING 


430 

1 




440 

1 REAL 

VARIABLE 



450 

i 




460 


JSR 

$FFD2 

'OUTPUT SECOND ASCII 





CHAR 

470 


JSR 

UPDATE 

'PRINT '= AND 





UPDATE POINTER 

430 


LDA 

$BB 

(POINT TO VARIABLE 





FOR MEMORY MOVE 

490 


LDY 

$BC 

(TO FPACC#1 

500 


JSR 

$BBA2 

(GO DO IT 

510 


JSR 

$BDDD 

!FPACC#1 TO STRING 





AT $0100 

520 


JSR 

$AB1 E 

(PRINT IT 

530 


LDA 

#$FF 


540 


BNE 

NEXT 

(SKIP TO NEXT VARIABLE 
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550 ! 

560 !STRING VARIABLE 
570 ' 


580 

STRING 

AND 

#*7F 


'MAKE ASCII 

590 


JSR 

*FFD2 



600 


LDA 

#*24 


! / * / 

610 


JSR 

*FFD2 



620 


JSR 

UPDATE 


630 


LDA 

#*22 



640 


JSR 

*FFD2 



650 


LDY 

#*00 



660 


LDA 

<*BB), 

i Y 


670 


TAX 



'LENGTH OF STRING IN 

680 


BEQ 

QUOTE 


.'NULL STRING 

690 


I NY 




700 


LDA 

<*BB), 

|Y 


710 


STA 

*22 


ILSB LOCATION 

720 


I NY 




730 


LDA 

<*BB), 

Y 


740 


STA 

*23 


'MSB LOCATION 

750 


LDY 

#*00 



760 

CHAR 

LDA 

<*22), 

Y 


770 


JSR 

*FFD2 



780 


I NY 




790 


DEX 




800 


BNE 

CHAR 



810 

QUOTE 

LDA 

#*22 



320 


JSR 

*FFD2 



830 


BEQ 

NEXT 



840 


BNE 

NEXT 



850 

HALFSTART 

BCS 

START 



360 

i 





870 

!INTEGER AND FUNCTIONS 



880 

i 





890 

INTFN 

AND 

#*7F 


! CONVERT TO ASCII 

900 


JSR 

*FFD2 



910 


I NY 




928 


LDA 

(*BB), 

Y 


930 


CMP 

#*7F 



940 


BCS 

I NT 


! INTEGER IF SECOND 


CHAR)128 

945 ! 

950 !FUNCTION DEFINITION 
960 
970 
930 


JSR *FFD2 
JSR UPDATE 
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998 


LDA #*46 

! 'F' PRINT FN 

1008 


JSR *FFD2 


1010 


LDA #*4E 

1 'N' 

1020 


JSR *FFD2 


1030 


BNE NEXT 


1840 

1 



1050 

!INTEGER 

VARIABLE 


1060 

i 



1070 

I NT 

AND #*7F 

! CONCERT TO ASCII 

1030 


JSR *FFD2 


1090 


LDA #*25 

! 'X' 

1100 


JSR *FFD2 


1110 


JSR UPDATE 


1120 


LDY #*00 


1138 


LDA <*BB) , Y 

! MSB 

1140 


STA *62 

!FPACC#1 

1158 


I NY 


1168 


LDA <*BB),Y 

! LSB 

1178 


STA *63 


1180 


LDX #*90 


1190 


JSR *BC44 

!CONCERT TWO BYTE 




INT TO REAL 

1200 


JSR *BDDD 

!FPACC#1 TO STRING 




AT *0108 

1210 


JSR *AB1E 

! PRINT IT 

1220 

i 



1230 

iSEE IF 

KEY HIT AND UPDATE POINTERS 

1240 

i 



1250 

NEXT 

LDA #*0D 

!CARRIAGE RETURN 

1260 


JSR *FFD2 


1270 


CLC 


1280 


LDA *BB 


1290 


ADC #*05 


1308 


STA *BB 


1310 


BCC WAIT 


1320 


INC *BC 


1330 

WAIT 

JSR *FFE4 

! STOP 

1340 


JSR *FFE1 


1350 


BJ"'1E NOT 


1360 


RTS 


1370 

NOT 

LDA *CB 

!CURRENT KEY 

1388 


CMP #*40 

!NO KEY=64 

1390 


BNE WAIT 

!CYCLE WHILE KEY 




HELD DOWN 

1400 


SEC 



1418 


BCS HALFSTART 
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1420 ! 

1430 !PRINT '=' AND SET POINTER IN *BB/BC 
TO START OF VARIABLE 

1440 I 


1450 

UPDATE 

LDA #*3D 

| / 

1460 


JSR *FFD2 


1470 


CLC 


1430 


LDA SBB 


1490 


ADC #*02 


1500 


STA *BB 


1510 


BCC RETURN 


1520 


INC *BC 


1530 

RETURN 

RTS 



8EBC 

CHAR 

8E6E 

CONT 

8E59 

DIRECT 

8ECE 

HALF 

8EEE 

I NT 

8ED0 

INTFN 

8F11 

NEXT 

8F2A 

NOT 

8EC5 

QUOTE 

8F43 

RETURN 

8E61 

START 

3E97 

STRING 

8F33 

UPDATE 

8F21 

WAIT 


The routine has been written to be easily relocatable. The only 
change necessary is to alter all jsr updates to jsr (start address + $ei). 

The rom routines used are as follows: 

CHROUT ($FFD2) 

A full description of this function is given in the Programmer's Refer¬ 
ence Guide, The kernal b-s'. It outputs the contents of a as an ASCII 
character to the screen. 

STOP ($FFE1) 

See The kernal B-33'. Test for the stop key. udtim must be called 
before using this routine. 

UDTIM ($FFEA) 

See the Programmer's Reference Guide , The kernal B-36'. This updates 
the system clock. 

MEMORY TO FAC#1 ($BBA2) 

This routine takes a five byte real number and moves it to the floating 
point accumulator #1. En route the sign bit of the mantissa is stripped 
off and the sign register facscn ($66 ) set, the exponent put at facexp ($6d 
and the mantissa of facho ($ 62 - 65 ). On entry a must hold the low and y 
the high byte of the address of the bytes to be moved. 
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FAC#1 TO STRING ($BDDD) 

Converts fac#i to an ASCII string stored at the bottom of the stack 
($0100). On exit a holds #$00 and y holds #$01. 

PRINT STRING FROM MEMORY ($AB1E) 

This routine prints successive characters starting at the memory loca¬ 
tion whose address is held in a (low) and y (high). The routine con¬ 
tinues until a zero terminator is found (as will be the case at the bottom 
stack in this application). Note a and y already hold the start address on 
exiting the previous routine and need not be changed. 

EVALUATE TWO BYTE SIGNED INTEGER ($BC44) 

Evaluates a two byte signed integer held in fac#i and deposits the 
result in floating point form back in fac#i. Before calling x must be set 
to #$90, facho must hold the high and facho+i the low byte of the 
integer (remember integers are held in high/low format unlike 
addresses). Once in this form the same routines as for real may be 
used to convert to ASCII and print. 

LINES 1450-1530: JSR UPDATE 

This will be used by all types of variables. It will be used directly after 
the variable name has been printed. All this does is to print out the 
equals sign and increase the address registers by two, so that they will 
point directly to the next byte to be collected - the first of the actual 
variable. 

LINES 90-120: These check for direct mode. If program mode is dis¬ 
covered, then the routine is exited. 

LINES 160-190: The locations we are going to use to step through the 
variable area are initialized with the start of variable address, which 
also happens to be the end of basic program address. We are now 
ready to start. 

LINES 220-280: Locations $2F and $30 are the address of the end of the 
variable block that we are going to dump. By checking the values in 
those with our registers, we can find out if we have completed all. 

LINES 320-350: The routine is divided up here and will be further 
divided later. When the first byte is picked up, we check if it is an 
integer or a function by seeing if the value is $80 < 128 ) or over. These are 
dealt with further into the routine. 

LINES 380-420: The first byte we have already is printed - the first letter 
of the variable name. The next byte is collected and this will distinguish 
between real and string variables. 

LINES 460-540: REAL VARIABLES: Again we print what we have in a, 
making the whole variable name output. A call is now made to jsr 
update. With the address of the present position placed in the a and y 
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registers, we call three rom routines, described at the start, to print out 
the variable to the screen or output device. The accumulator is loaded 
with $ff just so the branch following will succeed. 

LINES 580-840: STRING VARIABLES: Before we print out the accumula¬ 
tor, we remove the negative bit, bit 7, so that it is the pure ASCII code 
of the variable letter. The dollar sign is printed and update is called. As 
there are no separaters between stored strings, we cannot use a similar 
approach to the one used in real variables. The first thing printed is the 
start quotes. The length of the string is the byte after the name and this 
is placed in the x register. Now we gather in the address of where the 
string is stored. From this we can print out the characters directly, 
decreasing x each time, until the counter is zero. Finally, the closing 
quotes are output. One of the following two branches must succeed so 
we can continue. 

LINES 890-940: Integers and functions start here. In these lines we 
distinguish between them and act accordingly. By stripping off the 
negative bit we can print out the first character of the name, and do so. 
The second byte is loaded and this will tell us what type to deal with. A 
value of $80 ( 128 ) or over will signify integer. 

LINES 970-1030: FUNCTION VARIABLE: We cannot print any value for 
the function, so after the second name character is printed, update is 
called, and then we just print the letters 'F' and 'N' and branch off. 

LINES 1070-1210: INTEGER VARIABLES: After printing the second 
character of the name the integer sign of '%' is output. Once more 
update is visited. The next two bytes in the variable area are the integer 
value and these are transferred to fac #i. With the x register set to 
normalize the result, we call a rom routine at $BC44. This will convert the 
integer value to a real number. We then convert to ASCII and print the 
result with the routine described at the beginning. 

LINES 1250-1410: After dealing with any of the four types of variables, 
the flow is directed to this part of the routine. The return character is 
printed so that the next variable is printed on a new line. Each variable 
takes seven bytes of memory and as we added two bytes to our address 
registers in update, we only need to add five more to get to the start of 
the next variable in line. 

The stop key is now tested for and if the negative flag is set then dump 
is ended, as stop was pressed. By examining $cb we can see if any key is 
being pressed. As long as a key is held down we loop around here and 
then check for stop. 

To continue with dump we set the carry flag and we use a Branch with 
Carry Set to line 850 where the same happens, going further back to 
proceed dumping variables. 
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IMPROVEMENTS? 

Obvious improvements are as for the basic subroutine. If you had 
trouble extending the basic subroutine to handle arrays, you haven't 
tried anything yet! Most dump routines (wisely) do not handle subs¬ 
cripted variables (probably because it is considered too difficult). 


Trace and Troff 


COMMAND SYNTAX 
TRACE and TROFF 


Speed Control 
'(D f reset single-step 
'2' a relative delay of 2 A 1 
'4' a relative delay of 2*3 
'6' a relative delay of 2 A 5 
'8' a relative delay of 2 A 7 


T a relative delay of 2 A 0 
'3' a relative delay of 2 A 2 
'5' a relative delay of 2 A 4 
7' a relative delay of 2 A 6 
'9' a relative delay of 2 A 8 


The space bar operates the single-stepping. 


The delay is in addition to the normal time taken by basic to move to a 
new line and execute the common trace code. The delay may be 
changed at any time by hitting the appropriate key. It is, however, not 
possible to break into program execution in single step. If you wish to 
do this, hit a number other than 0 first. 

trace is a diagnostic aid which provides useful information on the 
path taken through a basic program. In this particular version the 
previous and the current line numbers are displayed in reverse video at 
the top right of the screen. 

We considered it far more important to allow the user to be able to 
vary the speed of the trace and have single-stepping capability. When 
called for the first time the default will be to single stepping and 
thereafter at each run it will continue at the last set speed. After being 
disabled with troff it will, on being enabled, revert back to single 
stepping. In single step mode program execution halts until the space 
bar or a speed change key is pressed. The keys for speed change are 
given above. 


ASSEMBLY LISTING 


9 *=8D3A 

100 !TRACE ENABLE 
110 ! 

128 1 

130 ENABLE LDA *?D IMSGFL6 CHECK FOR DIRECT 
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140 


BEQ 

PMODE !$00=PROG $30=DIRECT 

150 


SEI 

IOK-NOT IN PROG MODE 

SO DISABLE 

140 


LDA 

#$FF !INTERRUPT AND SET 




SINGLE STEP 

170 


STA 

SSTEP !TO $FF FOR SINGLE STEP 

130 


LDA 

#$FF 'DO SAME FOR TRACE FLAG 

190 


STA 

TRFLAG! 

200 


LDX 

$0308 !I GONE GET LOW BYTE 




OF TOKEN 

210 


STX 

IGONE IDISPATCH AND STORE AT 




TEMP REG 

220 


LDA 

NLVL 'NEW LINE VECTOR LOW WHICH 

230 


STA 

$0308 !POINTS TO TRACE 

240 


LDX 

$0309 'SAME FOR HIGH 

250 


STX 

IGONE+1 

230 


LDA 

NLVH 

270 


STA 

$0309 

280 

PMODE 

CL I 

'RESET INTERRUPT 

290 


RTS 

'AND RETURN TO BASIC 

300 

i 



310 

!TROFF = 

TRACE DISABLE 

320 

! 



330 

DISABLE 

SEI 

'REVERSE ENABLE PROCESS 

340 


LDA 

$9D 1 CHECKING IN DIRECT MODE 

350 


BEQ 

PMODE I 

330 


LDA 

#$00 'DISABLE TRACE FLAG 

370 


STA 

TRFLAG 'RESET TOKEN DISPATCH 

380 


LDA 

IGONE ITO VALUES AT THE TIME 

390 


STA 

$0308 I OF CALLING 

400 


LDA 

IGONE+1 

410 


STA 

$0309 

420 


CL I 


430 


RTS 

IBACK TO BASIC WITH 

TRACE OFF 

440 

i 



450 

!PERFORM 

TRACE 

I GONE POINTS HERE 

430 

i 



470 

TRACE 

STA 

AREG !IF BASIC IS TO RESUME 

480 


PHP 

ITHEN WE MUST SAVE A,X,Y 

490 


STX 

XREG IAND STATUS FLAGS 

500 


STY 

YREG 'TO RESTORE THEM 


ON CONTINUING 


510 

520 

530 


ONLY PROCEED WITH TRACE IF A PROGRAM RUNNING 
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546 


LDA 

$9D 


550 


BEQ 

RUNNING 


560 

1 




570 

!RESTORE 

ENTRY VALUES BEFORE CONTINUING 

580 

1 




590 

BASIC 

LDA 

AREG 

!REVERSE ENTRY PROCESS 

600 


LDY 

YREG 

'TO ALLOW PROG 

TO CONTINUE 

610 


LDX 

XREG 

! UNCORRUPTED 

620 


PLP 


! DON'T FORGET FLAGS!! ! 

630 


JMP 

(I GONE) 

.'CONTINUE AT 

TOKEN DISPATCH 

640 

1 




650 

1 PROGRAM 

RUNNING SO CHECK IF TRACE ENABLED 

660 

!FROM TRACE FLAG =$FF??? 

670 

I 




680 

RUNNING 

LDA 

TRFLAG 


690 


BEQ 

BASIC 

! TRACE OFF SO RESTORE 

AND CONT 

700 

i 




710 

1 TRACE IS 

ON SO 

UPDATE 

DISPLAY 

720 

i 




730 


SEC 


'READ CURSOR POSITION 

740 


JSR 

$FFF0 

!AND SAVE BY CALLING PLOT 

750 


STX 

ROW 

!WITH CARRY SET 

760 


STY 

COL 


770 


CLC 


! SET CURSOR POSITION 

780 


LDX 

#$00 

!TO ROW 0 COLUMN 24 

790 


LDY 

#$18 


800 


JSR 

$FFF0 


810 


LDX 

#$0F 


820 

SPACE 

LDA 

#$20 

! CLEAR PREVIOUS NUMBERS 

830 


JSR 

$FFD2 


840 


DEX 



850 


BNE 

SPACE 


860 


CLC 


! SET BACK TO ROW 0 COL 24 

870 


LDX 

#$00 


830 


LDY 

#$1S 


890 


JSR 

$FFF0 


900 


LDA 

#$12 

ITURN ON REVERSE VIDEO 

910 


JSR 

$FFD2 


920 


LDA 

OLHIGH 

! LOW BYTE PREVIOUS LINE 

930 


LDX 

OLLOW 

'HIGH 

940 


JSR 

$BDCD 

! PRINT LINE NUMBER 

950 


LDA 

#$92 

! REVERSE OFF 

960 


JSR 

$FFD2 
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970 


LDA #$20 

i BIT OF SPACE 

980 


JSR $FFD2 


990 


LDA #$12 

! REPEAT FOR CURRENT LINE 

1000 


JSR $FFD2 

! GETTING ITS VALUES FROM 

1010 


LDA $3A 

! CURLIN LOW BYTE 

1020 


STA OLHIGH 

!NOW BECOMES OLD LINE 

1030 


LDX $39 

! CURLIN+1 

1040 


STX OLLOW 


1050 


JSR $BDCD 


1040 


LDA #$92 


1070 


JSR $FFD2 


1080 


CLC 

! PREPARE TO RESET CURSOR 

1085 

I 



1090 

!IGNORE THIS BIT AS ONLY TO ALLOW BRANCH TO WORK 

1095 

i 



1100 

BASIC1 

BCS BASIC 

! HALFWAY BRANCH TO BASIC 

1110 


LDX ROW 

'CONTINUE RESET CURSOR 

1120 


LDY COL 


1130 


JSR $FFF0 

'RESTORE CURSOR POSITION 

1140 

i 



1150 

!CHECK FOR 

ANY KEYS PRE 

SSED 

1140 

i 



1170 


JSR $FFE4 

! GET IN 

1180 

CHCHAR 

BEQ SINGLE 

!NOTHING IN K/B BUFFER 

1190 


CMP #$2F 

!KEY<0??? 

1200 


BCC SINGLE 

!YES THEN OF NO INTEREST 

1210 


CMP #$3A 

! KEY>9??? 

1220 


BCS SINGLE 

! YES - NO INTEREST 

1230 


SBC #$30 

1 BETWEEN 0 AND 9 SO -$30 

1240 


BNE CHDELAY 

! 1-9 

1250 

i 



1240 

!0 PRESSED 

SO RESET SINGLE STEP 

1270 

i 



1280 


LDA #$FF 


1290 


STA SSTEP 


1300 


BNE SINGLE 

!NO NEED TO CALC DELAY 

1310 

i 



1320 

1 CALCULATE 

DELAY AS POWERS OF 2 

1330 

i 



1340 

CHDE LAY- 

TAX 

!PUT 1-9 IN X 

1350 


SEC 

!1 IN CARRY 

1340 


LDA #$00 


1370 

ROLL 

ROL A 

'MOVE CARRY BIT X TIMES 

1380 


DEX 

!TO SET KEY-2 BIT 

1390 


BNE ROLL 

!TO GIVE DOUBLING DELAY 

1400 


STA COUNT 

1 STORE IT TO USE AS TIMER 
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1410 


LDA #*00 

!DISABLE SINGLE STEP 

1420 


STA SSTEP 


1430 


BEQ DELAY 

'ALWAYS TAKEN 

1440 

i 



1450 

!SINGLE 

STEP PAUSE 


1440 

i 



1470 

SINGLE 

LDX SSTEP 

IIS IT ON 

1480 


BEQ DELAY 

'IF NOT GO TO DELAY 

1490 


CMP #*20 

1 SPACE HIT ORIGINALLY??? 

1500 


BEQ BASIC2 

.'YES THEN PERFORM LINE 

1510 

SSLOOP 

JSR *FFE4 

I GETIN WAIT FOR A CHAR 

1528 


BEQ SSLOOP 

'AND KEEP WAITING 

1530 


CMP #*20 

!SPACE??? 

1540 


BEQ BASIC2 

!YES THEN SKIP DELAY 

1550 


BNE CHCHAR 

'NO - WAS IT A 

SPEED CHANGE 

1540 

i 



1570 

1 TIMER COUNTDOWN FOR DELAY 

1580 

I 



1590 

DELAY 

LDX COUNT 

IDO COUNT LOTS 

1400 

DL00P1 

LDY #*FF 

1 OF 254'S 

1410 

DL00P2 

DEY 


1420 


BNE DL00P2 


1430 


DEX 


1440 


BNE DLOOP1 


1450 

f 



1440 

!GUARANTEED BRANCH TO HALFWAY BACK TO 


DISPATCHING LINE 1100 


1470 

! 



1480 

BASIC2 

SEC 

I ENSURES BRANCH BASIC1 

1490 


BEQ BASIC1 

'2 FLAG SET ALWAYS SET HERE 

1700 

i 



1710 

!RESERVE 

TEMPORARY STORES AND FLAGS SET 


TO DEFAULTS 


1720 

I 



1730 

TRFLAG 

BYT *00 

'TRACE FLAG OFF 

1740 

SSTEP 

BYT *FF 

'SINGLE STEP ON 

1750 

COUNT 

BYT *00 

I NO DELAY 

1740 

AREG 

BYT *00 

IA ON ENTERING FROM BASIC 

1770 

XREG 

BYT *00 

IX " 

1730 

YREG 

BYT *00 

IY ■ 

1790 

COL 

BYT *00 

I CURSOR WHILE 

LINES PRINTED 

1800 

ROW 

BYT *00 


1810 

OLLOW 

BYT *00 

.'PREVIOUS LINE LOW 

1820 

OLHIGH 

BYT *00 

I HIGH 
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1830 I GONE BYT $00,$00!STORE FOR ORIG VECTOR 

1840 END !A JMP TO HERE 


8E4? AREG 
SDEF BAS1C1 
8DFD CHCHAR 
8E4C COL 
8E38 DELAY 
8E3B DLOOP1 
8D3A ENABLE 
8E4F OLHIGH 
8D5F PMODE 
8E4D ROW 
8E24 SINGLE 
8E2D SSLOOP 
8D97 TRACE 
8E4A XREG 


8D87 BASIC 
8E43 BASIC2 
8E12 CHDELAY 
8E48 COUNT 
3D61 DISABLE 
8E3D DL00P2 
8E50 I GONE 
8E4E OLLOW 
8E1 6 ROLL 
8D94 RUNNING 
8D8F SPACE 
8E47 SSTEP 
8E46 TRFLAG 
8E4B YREG 


The rom routines used are as follows: 

CHROUT ($FFD2) 

As dump (see page 190). 

GETIN ($FFE4) 

See Programmer's Reference Guide, The kernal function B-11'. This 
removes one character from the current input device (usually the 
keyboard buffer) and returns its ASCII value in a. Zero is returned if 
none waiting. 

PLOT ($FFF0) 

See Programmer's Reference Guide, 'The kernal function B-19'. Reads 
the cursor position with the carry set and positions the cursor when 
the carry is clear. Misleadingly, x is used for the row and y for the 
column. 

PRINT LINE NUMBER ($BDCD) 

Useful little routine, this one, and well worth noting. Not only can it be 
used for line numbers, but also for a two byte unsigned integer ($0000 
to $FFFF). Before calling it, x must hold the low and a the high byte. It 
also strips off the traditional leading and trailing spaces before 
printing. 

HANDLE NEW LINE (SA734) 

This routine is vectored by the page 3 vector igone ($ 0308 ) and $A7E4 is the 
64's default setting. This is basic's token dispatch routine and is covered 
in great detail in Chapter 3. When used with the utility, igone has been 
modified and hence the reason why igone has been first read and 
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stored. Doing it this way means the routine will work with or without 
the utility, igone is called to tokenize each new line and is thus the 
ideal point at which to patch our trace. 

LINE 130-290: TRACE ENABLE: These set up trace ready for when you 
run a basic program. A scan is made for direct operation only, and only 
if it is direct do we continue. During this initialization the interrupt will 
be disabled. The default speed is single step and its value is stored in 
the appropriate location at the end of the routine. The original value of 
igone, basic Character Dispatch Vector (see Chapter 6), are stored for 
safe-keeping and the start of trace replaces them. After clearing the 
interrupt, we return you to basic until the run command is issued. 

LINES 330-290: TROFF - Trace Disabled: The reverse of the trace set up 
procedure. 

LINES 470-690: The basic dispatch is used each time a basic command 
is issued whether in direct or program mode. This means that the 
routine can be called when not required. To avoid this, we check for 
program mode, after preserving the processing registers, as in the set 
up. If still in direct mode, we restore the registers and jump to the 
normal dispatch routine. A final check is made before operating trace 
to ensure it is enabled by looking at the trflag at the end of the 
routine. 

LINES 730-1130: Display and updating are the purpose of these lines. 
We print at the top of the screen so as not to disrupt your display. We 
locate and save the current cursor position before setting it to the start 
of our print, top row and column 24, and clear the area we use by 
printing 15 spaces to the end of the line. After turning on reverse 
video, we gather in the values of the previous line number and visit the 
rom routine to print it. To distinguish between the line numbers, we 
put a space between them, after turning off the reverse video. We now 
repeat the operation for the current line number. At the same time as 
getting the current line number, we store its value in our previous line 
store. As trace is called before every basic command is initiated, then 
when more than one command is on a line the previous and the 
present line numbers will be identical. 

The instructions in line 1080 and 1100 are little tricks. Clearing the 
carry will ensure that the branch will fail. The branch is there for a later 
instruction when it will save a jump command. 

Finally, we restore the original cursor position. 

LINES 1170-1430: Is a speed change required? To find out, we use the 
kernal routine getin. If there is no character or it is not between the 
ASCII values of $30 and $3A, we branch out of this section. On 
remaining here, we subtract $30 from the character value to convert 
from ASCII to a real value between 0 and 9. 
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The zero value signifies single-step mode is required again, so its flag 
is set to $FF. 

The remainder have to be acted upon in order to gain our power of 
two figures for delay purposes. The value we have is to be used as a 
counter and so is transferred to the x register. To start with, we set the 
carry and initialize the accumulator to zero. The accumulator is rotated 
right x times. The first time, the bit set in the carry is transferred to bit 
zero of the accumulator. The carry from this time on will be unset, 
except for the last time when nine is the value of x and that will not 
worry us. Every consecutive rotate will shift the set bit further to the 
right and so increase the power of two of the value. When nine is 
raised to a power the accumulator will end up with a value of zero, but 
when the delay is explained, lines 1590-1090, you will see that this is in 
effect 256, that is, 2'8. Finally, we disable the single-step mode, if set, 
by storing zero in its flag. 

LINES 1470-1530: SINGLE-STEP MODE: To check if it is in operation, 
we test its flag. We not only look for the space character, which 
operates single-stepping, but also for others by branching back to lines 
1170 to 1430. This means to continue in single-step the space bar or a 
numeral key will in fact cause the program to continue, the latter ones 
ending single-step at the same time. 

LINES 1590-1620: DELAY: This consists of a loop within a loop. The 
inner loop is completed the number of times calculated earlier, 
thereby giving variable time delays. When speed nine has been selec¬ 
ted count is zero, the inner loop is carried out, and the count is 
decreased before checking for zero. When zero is decreased it 
becomes $ff (255) so the check will fail until it is decreased to zero once 
more. This therefore operates the inner loop 256 times. 

Finally, we set the carry and branch back, as the accumulator will be 
zero, to line 1100 where the Branch with Carry Set will send it further 
back to jump in to the normal icone routine to carry out the basic 
command. 

IMPROVEMENTS? 

It is possible to modify the trace to list not only the previous and 
current line, but also to highlight the current statement being 
executed. 

To list a line we can use the list routine in rom which starts at $A69C. 
There are two major problems if we try to use it. The first is that list 
uses a number of zero page locations also used during a run. The 
second is that on completion of list a warm boot of basic is carried out. 
(Try putting list in a program and running it.) We can overcome the 
first by copying zero page to elsewhere in ram before calling list. The 
second requires that on return from list, we must re-enter our trace 
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routine at the next instruction after performing list which must restore 
zero page. To do this we must read and store the warm start vector 
imain ($0302) and set it to the next instruction after list is called, troff 
must, of course, reset this vector to its original value. 

To highlight the statement within a listed line places even greater 
demands on our ingenuity and would require the trace routine to be 
rewritten to use chrget which has purposely been avoided (because of 
DOS 5.1). If it were to use chrget, the line could be re-listed each time 
with a marker character printed at the current byte held in txtptr 
($7A/$7B) through the use of the print tokens link. 

Both additions seem of little point as we can use the stop key 
followed by list line number(s). We have not even attempted to incor¬ 
porate either possibility. 


Numeric conversions 

In the world of the Commodore 64 we come across three main 
numbering systems: that of decimal, to the base of 10, hexadecimal, to 
the base of 16, and binary which is to the base of 2 (octal, to the base 
eight is less common). 

The binary number system is used because there are only two 
numerals used: 0 and 1. This matches the type of electronics used in 
the computer world, digital electronics, which has only two states, 
either on or off. These two positions are known as logical states. Logic 
1 is on and obviously logic 0 is off. These, as you can see, fit well with 
the binary system. 

The hexadecimal system was introduced because although binary 
matches the electronics, it is unwieldly and is not so easy to recognize 
in everyday form. Hexadecimal is easier to remember, using only two 
digits to the binary eight, and therefore faster to type in. Hexadecimal 
is nearly always entered in groups of two for example, $ff. 

Decimal is used in our everyday life and is therefore used in basic. 
One of its disadvantages is that numbers have varying amounts of 
digits. For instance, in numbers up to 255 there are one, two or three 
digits whereas with hex there is always two. 

Some basics give you the option to enter numbers in forms other 
than decimal. The Commodore 64 basic does not. We are not going to 
rectify this but are giving you four conversion routines. These are 
converting decimal and binary, and decimal and hex. 

TEN - Decimal to hexadecimal conversion 
COMMAND SYNTAX 

TEN decimal number [,decimal number,....] 

The maximum decimal number that can be converted is 65535 and then 
only positive numbers can be converted. Multiple conversions can be 
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done if they are separated by commas. The result will be a four digit 
hex number. 

ASSEMBLY LISTING 


9 

*=$84A0 



10 

START 

BEQ 

SYNTAX 

20 


BCS 

SYNTAX 

30 


JSR 

$81F5 

40 


LDA 

*$20 

50 


JSR 

$FFD2 

40 


LDY 

#$02 

70 

NEXT 

JSR 

HEX 

30 


DEY 


90 


BNE 

NEXT 

100 


LDY 

$14 

110 


STY 

$15 

120 


LDY 

#$02 

130 

NEXT 1 

JSR 

HEX 

140 


DEY 


150 


BNE 

NEXT1 

140 


JSR 

$8079 

170 


CMP 

#$2C 

188 


BNE 

EXIT 

190 


JSR 

$FFD2 

200 


JSR 

$0073 

210 


JMP 

START 

220 

EXIT 

RTS 


230 

HEX 

LDX 

#$04 

240 


LDA 

#$00 

250 

AGAIN 

ASL 

$15 

240 


ROL 

A 

270 


DEX 


280 


BNE 

AGAIN 

290 


CMP 

#$0A 

300 


BCC 

DIGIT+1 

310 


CLC 


320 


ADC 

#$37 

330 

DIGIT 

BIT 

$3049 

340 


JSR 

$FFD2 

356 


RTS 



! GET PARAMETER 

! PRINT A SPACE 
ON SCREEN 

! CONVERT A BYTE TO HEX 

! TWO CONVERTS FOR 
EACH BYTE 

! PLACE LOW BYTE 
FOR CONVERSION 


! GET LAST BYTE 
OF BUFFER AGAIN 
! COMMA FOR MORE NUMBERS 
! NO MORE TO CONVERT 
! PRINT COMMA AS SPACER 


! SET COUNTER 
! INITIALISE ACC 


! IS IT 10 OR MORE 
! ASCII ADDITION 
FOR NUMBER 

! FOR LETTER 


! PRINT RESULT 
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3<40 

SYNTAX 

JMP $AF08 

84D5 

AGAIN 

84E2 

DIGIT 

84D8 

EXIT 

84D1 

HEX 

84AE 

NEXT 

84BA 

NEXT1 

84A0 

START 

84E? 

SYNTAX 


LINES 30-50: Here we pick up the first decimal number to convert. The 
high byte will be in $15 and the low, in $14. We then print a space on the 
screen so the first digit is a character away from the border or the last 
PRiNTed statement. 

LINES 60-90: Each part of the hexadecimal number will have two 
characters. As we will convert our decimal in two stages, the high byte 
first then the low, each will require two entries to the conversion 
routine. We therefore set a counter to two, in this case the y register. 
After going to the conversion routine we decrease the counter. If it is 
zero then we have done it twice, if not we go back again. 

LINES 100-110: We have now converted the high byte. As the conver¬ 
sion subroutine uses the high byte register in the transposition, we 
transfer the low byte of the decimal to that register. 

LINES 120-150: This is the same as lines 40-70 but for the low byte. 

LINES 160-220: The get parameters has already picked up the byte after 
the last decimal digit. Here we get that byte again by a call to chrgot. 
We want to find out if more than one conversion is required. The 
syntax of the command is for a comma as a separator, so we check for 
that. If the check succeeds, we print the comma to the screen and go 
back to convert the number. On failing the check, it is back to basic via 
the rts. 

THE CONVERSION ROUTINE 

We use this routine four times for every decimal number in the com¬ 
mand, twice for both the high and low bytes. We enter with the byte in 
location $15. The hexadecimal number for a byte consists of two digits, 
one for the upper four bits and the other for the lower four. As we 
print on the screen from left to right, we print from the most significant 
hex digit and therefore want the high bits of the decimal number first. 

Hex uses numerals 0 to 9 and letters A to F. Unfortunately, these do 
not follow in sequence in the ASCII table, as other characters lie 
between 9 and A. We therefore have to test for this when converting to 
ASCII for printing to the screen. 

LINES 230-240: The x register is initialized to 4 as a counter for taking 
off the required bits for each hex digit. The accumulator is used to 
gather in the bits so is initialized to zero before we start. 
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LINES 250-28.0: This is the main part of the conversion. We use the 
instruction asl to move all the bits of the decimal byte one place to the 
left. The most significant bit (bit 7) is moved to the carry flag. The least 
significant bit (bit 0) is filled with zero (although that does not worry 
us). We need the bit we put into the carry back in the accumulator. 
This is achieved by the command rol. This moves the accumulator bit 
one place to the left, filling bit 0 with the carry value, which we have 
just set (or unset). Bit 7 of the accumulator goes to the carry and again 
it is of no use to us here. 

Now the counter is decreased and checked to see if we have done 
the bit shifting four times. We have now taken the four high bits of $is 
(the decimal byte) and put them in the same order in the accumulator 
but in the low bit positions. 

LINES 290-350: The answer in the accumulator is now converted to 
ASCII form and printed to the screen. If it is less than $oa, it is a number 
so we add $30 to it. Greater than 10 means it is a letter, so we have to 
add $37, giving letters from A to F. 

HEX - Converting a hexadecimal number to decimal 

COMMAND SYNTAX 

HEX hex number [,hex number,....] 

The hex number can be of two or four digits. More conversions can be 
added if separated by commas. The normal '$' sign which preceeds hex 
numbers must not be used. 

A four digit hex number can be split very conveniently into two 
parts. The two left digits are the high byte whilst the right are the low 
byte. Where a two digit conversion is required, we treat it as a low byte 
number. The two digits can be further split in that one represents the 
high nybble and the other the low nybble (a nibble is half a byte or four 
bits). 

To do the conversion we collect two hex digits at a time and convert 
them to a one byte answer. 

ASSEMBLY LISTING 

? *=$8537 


10 START 

STA $63 


20 

JSR $0073 ! 

GET NEXT BYTE 

39 

STA $62 


40 

JSR DECIMAL 


50 

PHA ! 

PUT HIGH ANS ON STACK 

60 

JSR $0073 


70 

BEQ LOWPRINT! 

ONLY TWO BYTE HEX NO 

80 

CMP «$2C 1 

IS IT A COMMA 

90 

BEQ COMMA ! 

YES & ONLY 2 BYTE HEX 

100 

STA $63 





Programming aid routines 205 


110 


JSR 

$0073 



120 


STA 

$42 



130 


JSR 

DECIMAL 



140 


TAY 


1 

PUT LOW ANS IN Y 

150 


PLA 


1 

GET HIGH ANS IN ACC 

140 


JSR 

PRINT 

1 

PRINT ANSWER 

170 


JSR 

$0073 

1 

GET NEXT BYTE 

180 


CMP 

#$2C 

1 

IS IT A COMMA? 

190 


BEQ 

C0MNA1 

1 

YES 

200 


RTS 




210 

LOWPRINT 

PLA 


1 

GET HIGH ANS 

220 


TAY 


l 

PUT IT IN LOW 4NS REG 

230 


LDA 

#$00 

1 

SET HIGH ANS TO ZERO 

240 


JSR 

PRINT 

I 

PRINT ANSWER 

250 


RTS 




240 

COMMA 

PLA 


1 

GET HIGH ANS 

270 


TAY 


l 

PUT IT IN LOW ANS REG 

280 


LDA 

#$00 

1 

SET HIGH ANS TO ZERO 

290 


JSR 

PRINT 

1 

PRNT ANSWER 

300 

C0MMA1 

LDA 

#$2C 

1 

ASCII FOR COMMA 

310 


JSR 

$FFD2 

1 

PRINT IT AS SPACER 

320 


JSR 

$0073 

1 

GET NEXT BYTE 

330 


JMP 

START 



340 

DECIMAL 

LDY 

#$01 

1 

COUNTER 

350 

AGAIN 

LDA 

$0042,Y 

1 

GET LOW CHAR 

340 


CMP 

#$30 

1 

IS IT A NUMBER 

370 


BCC 

SYNTAX 

1 

NOT NUMBER OR 






LETTER 

330 


CMP 

#$47 

1 

IS IT LETTER > F? 

390 


BCS 

SYNTAX 



480 


CMP 

#$3A 

1 

IS IT A NUMBER? 

410 


BCC 

DIGIT 

1 

YES 

420 


CMP 

#$41 

1 

IS IT A LETTER? 

430 


BCC 

SYNTAX 

I 

NO 

440 


SBC 

#$37 

I 

CONVERT ASCII LETTER 






INTO REAL NUMBER 

450 


BNE 

NEXT 

1 

ENFORCED 

440 

DIGIT 

SEC 




470 


SBC 

#$30 

1 

CONJERT ASCII NUMBER 






INTO REAL NUMBER 

480 

NEXT 

STA 

$0014,Y 



496 


DEY 




500 


BPL 

AGAIN 

1 

NEXT CHARACTER 

510 


LDY 

#$04 

1 

COUNTER 

520 

NEXT 1 

ASL 

$15 

\ 

PUT HIGH ANS IN 


HIGH BITS 
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530 

540 

550 

566 

570 

580 SYNTAX 
590 PRINT 
600 

610 

620 

630 

640 


DEY 

BNE NEXT1 
LDA $14 

ORA $15 ! JOIN BOTH TOGETHER 

RTS 

JMP $AF08 
JSR $B391 

JSR $8401 ! CONVERT TO 

POSITIVE REAL NUMBER 

JSR $AD8D 
JSR $BDDD 
JSR $B487 
JMP $AB21 


857E 

8571 

8595 

8598 

85AD 

85AA 


AGAIN 

856A 

COMMA 

C0MMA1 

857C 

DECIMAL 

DIGIT 

8562 

LOWPRINT 

NEXT 

85A0 

NEXT1 

PRINT 

SYNTAX 

8537 

START 


LINES 10-50: The routine is entered with the first digit and is stored. 
Calling chrget, we get the next byte and again store it. The decimal 
conversion routine is visited (this is described later), and the result 
comes back into the accumulator which we place on the stack. 

LINES 60-90: The next byte of the command is now collected and two 
checks made, first to see if it is the end of the command and secondly for 
a comma. If the first succeeds we go off and print what we have already 
collected, but as a low byte answer. If it is a comma, we again print but 
will return to do further conversions. 

LINES 100-130: This is a repeat of lines 10-50 except the result in the 
accumulator is put in the y register instead of the stack. 

LINES 140-200: The result of the four digit conversion is printed to the 
screen here. The y register has the low byte and the high byte is pulled 
off the stack into A. The print routine described at the end is now called. 
The conversion is complete and we now check to see if further conver¬ 
sions are required by getting the next byte. If a comma is not present, 
the routine is ended. 

LINES 210-250: The low byte answer is printed here. The byte is pulled 
off the stack and placed in the y register and the accumulator set to zero. 
After printing, the hex routine is left. 

LINES 260-290: This is the same as lines 210-250 but instead of leaving, 
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we continue as we know there was a comma present when we arrived 
here. 

LINES 300-330: A comma is printed on the screen to separate the 
answers. The first byte of the next conversion is gathered and we go 
back to the beginning to start converting again. 

LINES 340-570: THE DECIMAL CONVERSION: The two bytes will be in 
locations $62 and $63. They will hold the ASCII values of either a 
numeral or a letter between A and F. syntax errors are given if they 
fall outside these limits. 

Taking each location in turn, we determine what it is and deduct 
from it $37 for a letter of $30 for a numeral, the value ending up 
between $00 and $@f (0 to 15). These are placed in registers $14 and $ 15 . 
We now have to combine these into one number. Address $15 will 
have the high nybble but in the wrong bit positions. To get them into 
the upper four bits we shift the bits left four times. To join the two 
together, the byte in $14 is copied to the accumulator and is ORed with 
location $ 15 . With the final result in the accumulator, we exit the 
subroutine. 

LINES 590-640: PRINT RESULT TO SCREEN: Six subroutines are called 
here where the result of numeric calculations are converted to a 
string of ASCII characters and printed to the screen which except for 
one are all rom routines. The one exception is a subroutine in the 
deek routine (see Chapter 8). For convenience, we reproduce it 
below. We enter this print routine with numeric data, the y register 
holding the low and the accumulator the high byte. 

ROUTINE $B391 - FIX TO FLOAT 

This sets the data flag in $0D to zero signifying numeric data. The 
number we wish to convert is placed in fac#i registers $62, meaning 
that numbers over 32768 ($80) will be output as negative numbers. 

ROUTINE $8401 - CONVERT TO POSITIVE 


10 


LDA 

$66 

20 


BPL 

EXIT 

30 


LDY 

0>DATA 

40 


LDA 

#<DATA 

50 


JSR 

$BA8C 

60 


JSR 

$ 

CO 

CD 

70 

EXIT 

RTS 


80 

DATA 

BYT 

$91,$00,$00,$00,$00 


We check register $66 of the fac#i to see if it is negative. If so we load 
fac#2 with zero and set for no exponent. This is done through the 
rom routine $BA8C, entering with the data start address in A and Y. 
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Now by adding the two facs together we will end up with a result in 
fac#i which is a real whole number; $B86A will achieve this. 

ROUTINE $AD8A-CHECK 

This just checks that the data is numeric, otherwise a 'type mismatch' 
error is given. 

ROUTINE $BDDD - FAC#1 TO STRING 

This converts the contents of fac#i to an ASCII string and places it at 
the bottom of the stack. The Y and A registers will hold this address 
when the routine is finished. 

ROUTINE $B487- SET UP STRING 

This sets various registers so that the print routine knows where to 
print from and how long the string is. 

ROUTINE $AB21 - PRINT 

This takes the data from the bottom of the stack and prints it to the 
screen. We jumped to this routine, so when it is ended, the processor 
will be directed back to the position calling this whole subroutine. 

This routine, being a separate routine, is therefore capable of being 
used by other commands as in the mem command. 

TWO - Decimal to binary conversion 
COMMAND SYNTAX 

TWO decimal number [,decimal number,....] 

The maximum decimal number which can be converted is 65535 and 
must be positive. Multiple conversions can be done if they are separ¬ 
ated by commas. The result will be two eight digit binary numbers 
separated by a space, unless the number is 255 or less, when only one 
binary result will be shown. 

All we need to do is to test each bit and print a zero or a one 
according to its state. 

ASSEMBLY LISTING 
? *=*84EC 


10 START 

BEQ SYNTAX 


28 

BCS SYNTAX 


30 

JSR *81F5 

! GET PARAMETER 

40 

LDA #*20 


50 

JSR *FFD2 

! PRINT SPACE 

60 

LDA *15 


70 

BEQ LSB 


80 

LDX #*08 

! COUNTER 

90 NEXT 

ASL *15 
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106 

BCS SET+1 

! TO PRINT A 1 

110 

LDA #*36 

1 TO PRINT A 0 

126 SET 

BIT *31A9 

! SET+1 IS LDA #*31 

136 

JSR *FFD2 


140 

DEX 


150 

BNE NEXT 


160 

LDA #$20 


170 

JSR *FFD2 

1 PRINT A SPACE 

186 LSB 

LDX #*08 


190 NEXT1 

ASL *14 


200 

BCS SETA+1 


210 

LDA #*30 


220 SETA 

BIT *31A9 

! SETA+1 IS LDA #*31 

230 

JSR *FFD2 


240 

DEX 


250 

BNE NEXT1 


260 

JSR *0879 

! GET LAST BYTE OFF 



BUFFER AGAIN 

270 

CMP #*2C 

1 IS IT A COMMA? 

230 

BNE EXIT 

! NO COMMA 

290 

JSR *FFD2 

! PRINT COMMA AS SPACER 

300 

JSR *0073 

! GET NEXT BYTE 

310 

JMP START 


320 EXIT 

RTS 


336 SYNTAX 

JMP *AF08 



8533 

EXIT 

8512 

LSB 

84FE 

NEXT 

8514 

NEXT 1 

8504 

SET 

851A 

SETA 

84EC 

START 

8534 

SYNTA 


LINES 10-20: On entering the first byte after the keyword is in the A 
register and by testing the carry and zero flags, we can check if a 
numeral is first. 

LINES 30-150: We gather in the decimal number to convert and also 
print a space for presentation to move it away from the last item 
printed or from the border. Taking the high byte first, we check it for 
zero, if it is a zero we branch and just do the low byte. The x register is 
set to eight as there are eight bits to a byte, and we shall use it as a 
counter. We shift the bits of the high byte one place to the left. The 
leftmost bit comes off and goes to the carry flag. If the carry flag is 
zero, we therefore print ASCII $30 which is zero and $31 when the carry 
is set. This is repeated a further seven times for all the remaining bits. 

LINES 160-250: This is a repeat of the above except for the low byte. 
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LINES 270-320: By calling chrgot, we test for a comma or if the end of 
the command has been reached. When the former is found, it is 
printed to the screen and we gather in the next byte before going to 
carry out the next conversion. 

BIN - Binary to decimal conversion 
COMMAND SYNTAX 

BIN 8 bit binary number [,8 bit binary number,....] 

Here we will convert an eight bit binary number to decimal. We supply 
a value that would be a high byte and one that is the low byte. For 
example, if you demanded 11111111 was converted, the answer would 
come out as 255. Only eight bit numbers are accepted but more 
conversions can be done by separating the items with commas. 

This is essentially the reverse of the previous command. The Is and 
0s you type in will be picked up in their ASCII form. These have their 
rightmost bits corresponding to their numeric value, so by taking those 
we can build up a single byte number. 

ASSEMBLY LISTING 


9 *=*85BF 


10 

LDA *7A 


20 

BNE LOW 


30 

DEC *7B 

! DECREASE CHARSET 



POINTER BY WE 

40 LOU 

DEC *7A 


50 ANOTHER 

LDX #*08 

! COUNTER 

63 NEXT 

JSR *0073 

! GET BYTE 

70 

BCC NUMBER 

! IF NUMBER BRANCH 

30 SYNTAX 

JMP *AF08 


90 NUMBER 

CMP #*32 

! IS) ASCII FOR 2 

100 

BCS SYNTAX 

! YES 

110 

ROR A 

! SET BIT 0 

120 

ROL *14 

! PUT IN *14 MOVING 



1 LEFT EVERY TIME 

130 

DEX 


140 

BNE NEXT 

! DONE IT 8 TIMES? 

150 

LDY *14 

! PUT ANS IN Y REG 

1 63 

LDA #*00 

! NO HIGH ANS 

170 

JSR *85AD 

! PRINT ANS-HEX ROUTINE 

130 

LDA #*2F 


190 

JSR *FFD2 

! PRINT SLASH TO DIVIDE 



LOW AflS & HIGH ANS 

200 

LDA *14 

! NOW PUT ANS IN 



HIGH ANS REG 

210 

LDY #*00 

! SET LOU ANS REG TO 0 
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220 


JSR $85AD ! 

PRINT 

ANS-HEX ROUTINE 

230 


JSR $0073 ! 

GET NEXT BYTE OF 




INPUT 

BUFFER 

240 


CMP #$2C ! 

IS IT 

A COMMA? 

250 


BNE EXIT ! 

NO 


260 


JSR $FFD2 ! 

PRINT 

COMMA AS SPACER 

270 


JMP ANOTHER 



280 

EXIT 

RTS 



85C7 

ANOTHER 

85FB EXIT 



85C5 

LOU 

85C9 NEXT 



85D1 

NUMBER 

85CE SYNTAX 



LINES 10-40: This decreases chrget address by one. 

LINES 50-140: We want to pick up eight binary digits so the x register is 
used as a counter. After we pick up a digit, via chrget, we check for a 
number and also if it is two or greater, in ASCII. By rotating the 
accumulator right, we take off bit 0 and it ends up in the carry flag. 
Then if we rotate location $14 left, we move all its bits one to the left and 
put the carry flag state into the lowest bit. If we do this eight times, 
address $14 will have a number equivalent to the Is and 0s you typed in. 

LINES 150-220: The print routine in the hex command is used twice. For 
this the low byte needs to be in y and the high in A. The value we want 
to print is in $14 and by changing the register we load it into we can 
print out the states we want. A slash is printed as a separator by a visit 
to the kernal routine at $FFD2. 

LINES 230-280: Having done one conversion, we take a look to see if 
more are required. A comma is printed if so and then we go back to do 
it all again. 
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Introduction 

In the previous chapter the commands were of a toolkit nature. In this 
chapter they are mainly improvements to the standard 64 commands, 
GOTO, GOSUB, RESTORE, PRINT, INPUT, GET, PEEK, POKE and LOAD. To that end, We 

are supplying cgoto, cgosub, proc, dproc, eproc, reset, write, enter, inkey$, 
deek, doke and chain. There are five commands which have no 64 basic 
equivalent, but which we hope will enhance your basic programming. 
They are pop, plot, colour, lomem and himem. The final command given 
is that of quit and exists the utility. 

In comparison with the toolkit commands these are shorter, but no 
less useful to you. No doubt you can think of existing commands 
which could be enhanced and even more to add. This chapter should 
help you on your way. 


CGOTO and CGOSUB 

COMMAND SYNTAX 

cgoto variable or line number 
cgosub variable or line number 

A limitation of Commodore basic is that it does not permit the use of 
calculated destinations with goto and gosub. We thought it would be 
nice to be able to use variables and mathematical expressions, for 
example a*20. To allow this, we have come up with two commands 
cgoto and cgosub, the c standing for calculated or computed - which¬ 
ever you prefer. 

cgoto is the easiest of the two, not that either is complicated. The 
routine requires only two instructions. In the basic rom routine of goto 
the first instruction gets the line number and is therefore the only thing 
we have missed out. So after getting the variable we only have to jump 
to that part of goto. 

cgosub is a bit longer in that we have to copy the rom routine for 
gosub and change the address for calling the goto routine as we want 
to use our 'computed' routine. 
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ASSEMBLY LISTING 
9 *=$8FAF 

10 CGOTO J3R $81F5 ! GET PARAMETER 

28 JMP $A8A3 ! GO TO ROM GOTO 

38 ! CGOSUB ROUTINE 


48 

LDA #$03 


50 

JSR $A3FB 

! CHECK FOR ROOM ON 
STACK 

6Q 

LDA $7B 

! SAME CHRGET 

ADDRESS ON STACK 

70 

PHA 


80 

LDA $7A 


99 

PHA 


100 

LDA $3A 

! SAME CURRENT LINE 
NUMBER ON STACK 

110 

PHA 


120 

LDA $3B 


130 

PHA 


140 

LDA #$3D 

! MARKER FOR GOSUB 

ON STACK 

150 

PHA 


160 

JSR $0079 

1 GET LAST BYTE AGAIN 

170 

JSR CGOTO 


180 

JMP $A7AE 

! BASIC TO EXECUTE 
PROGRAM FURTHER 


8FAF CGOTO 

LINES 10-20: cgoto: We use get parameters simply to find the desti¬ 
nation line number. It will evaluate any expression, and jump to the 
normal goto routine, one instruction in. 

LINES 40-60: cgosub: These lines check if there is enough room on the 
stack to store the routine's information and a buffer amount for other 
routines. To do this the value in the accumulator is doubled and added 
to $3E (62 dec). This is then compared with the stack pointer. If the stack 
pointer is the lesser value, then an 'out of memory' error is generated. 
In our case, the stack pointer would have to be less than $44 (it starts at 
$ff). 

LINES 70-130: There are two markers we will require when the sub¬ 
routine is finished. These are the present byte's address from the 
chrget routine and the line number we must return to later. The stack 
is used to store this information. 
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LINES 140-150: Another value is put on the stack. This is used by the 
return routine to check a gosub has been implemented. 

LINES 160-170: Now we can go to our destination. To do this, we get 
the last byte collected by chrget again and go to our new computed 
goto routine. 

LINE 180: Once the goto routine has been completed, in which the 
chrget has been given new values, we return to the normal flow of 
basic and the program is continued at its new address. 


Procedures 

COMMAND SYNTAX 

proc title - call a procedure 
dproc title - define a procedure 
eproc- the end of a procedure 

The title is not required within quotes. If it is then the quotes will be 
considered as part of the name. Spaces also cannot be used as chrget 
ignores them (a space in the dproc title will not be matched in the proc 
title). On the other hand, a space in the proc title will have no bearing 
on the matching. A colon is the only other character which cannot be 
used in a title. 

You can have as many procs on a line as you want, but the dproc must 
be on a line of its own. Everything following the dproc to the end of the 
line is included as the title, eproc follows exactly as return. 

64 basic cannot be described as a structured language, gotos and 
gosubs do not form the basis of a structured language. 

To start you on the road to 'structured programming', we are 
introducing procedures. We have nothing profound to offer but by 
giving you an introduction we hope you will be able to take it further 
(IF . . THEN . . ELSE WHILE . . . WEND DO . . . UNTIL etc . .) 

The form of procedures we have written are really no more than 
gosubs with names or variables (cgosub). In fact, they will be slower, 
but not that you would notice, than gosubs because of the extra code 
required. So what advantage will they have? Well,*they can be 
relocated anywhere in the program without changing any directive line 
numbers; adding procedures from one program to another, especially 
if they include procedures within them, is a simple matter. If goto was 
also given the same treatment, all directive line numbers could vanish. 
Renumbering a program would be a simple matter of changing the line 
numbers rather than going through the whole program and correcting 
destinations. A further function they perform, and one that should not 
be overlooked, is that they make a program easier to follow. For 
instance, to see proc perform-wait is clearer than gosub 2000 . 
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Quite simply, all we do when finding a proc is to search through for 
the token dproc and then compare the named titles. On finding it, we 
perform a cosub. The utility interpreter will action the command 
dproc as a rem if it encounters one. The third command of the trio is 
eproc and is just a return by a different name. We actually go to the 
return routine. After the listing and description we suggest some 
improvements. 


ASSEMBLY LISTING 


9 *=*8FD2 


10 

LDX 

#*00 

20 

DEC 

*7A 

36 

BCS 

COLLECT 

40 

DEC 

*7B 

50 COLLECT 

JSR 

*0073 

60 

BEQ 

NAMEEND 

70 

STA 

*0200,X 

80 

I NX 


90 

BNE 

COLLECT 

100 NAMEEND 

LDA 

#*00 

110 

STA 

*0200,X 

120 

LDA 

#*03 

130 

JSR 

*A3FB 

140 

LDA 

*7B 

150 

PHA 


160 

LDA 

*7A 

170 

PHA 


180 

LDA 

*3A 

190 

PHA 


200 

LDA 

*39 

210 

PHA 


220 

LDA 

$ 

00 

230 

PHA 


240 

LDA 

*2B 

250 

STA 

*FB 

260 

LDA 

*2C 

270 

STA 

*FC 

280 NEXT 

LDY 

#*00 

290 

LDA 

<*FB),Y 

300 

STA 

*FD 

310 

1NY 


320 

LDA 

(*FB),Y 

330 

STA 

*FE 

340 

BNE 

CONT 

350 

LDX 

#*11 


! DECREASE CHRGET ADD 


! GET PROC N*iME 
! FOUND B OR : 

! STORE IN INPUT BUFFER 

! ENFORCED 
! 0 AT END 


! CHECK STACK DEPTH 
! SAVE CHRGET ADDRESS 


! SAVE CURRENT LINE NO 


! STACKMARKER FOR GOSUB 

! GET i^D STORE 
! ADDRESS OF 1ST 
! PROGRAM LINE 


! GET AND STORE LINKS 


! NOT END OF PROGRAM 
! DPROC NOT FOUND 
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360 


JMP 

$A437 


! UNDEF'D STATEMENT 
ERROR 

370 

CONT 

LDY 

#$04 


! SKIP LINKS AND 

LINE NUMBERS 

330 


LDA 

<$FB) 

,Y 


390 


CMP 

#$E1 


! TOKEN OF DPROC 

400 


BEQ 

PROC 


! FOUND A DPROC 

410 

LINE 

LDA 

$FD 


! PUT LINKS TO 

420 


STA 

$FB 


! LINE REGISTERS 

430 


LDA 

$FE 



440 


STA 

$FC 



450 


BNE 

NEXT 


1 ENFORCED $FE 

CHECKED EARLIER 

460 

PROC 

LDX 

#$FF 



470 

CHECK 

I NX 




480 


I NY 




490 


LDA 

<$FB> 

Y 

! GET PROC TITLE 

500 


BEQ 

ZERO 


f END OF LINE 

510 


CMP 

$0200. 

,x 

! COMPARE FOR MATCH 

520 


BEQ 

CHECK 


! MATCH FOUND 

530 


BNE 

LINE 


! NO MATCH FIND NEXT 
DPROC 

540 

ZERO 

CMP 

$0200 


! COMPARE LAST BYTE 

550 


BNE 

LINE 


! NO MATCH 

560 


SEC 



! PREPARE FOR SUBTRACT 

570 


LDA 

$FB 


! ADDRESS OF PROCEDURE 

580 


SBC 

#$01 


! DECREASE TO END OF 
LAST LINE 

590 


STA 

$7A 


! PUT AS CHRGET ADD 

600 


LDA 

$FC 



610 


SBC 

#$00 


! IN CASE PAGE CROSSED 

620 


STA 

$7B 



630 


JMP 

$A7AE 


! BASIC TO CONT PROG 


902C 

CHECK 

8 FDA 

COLLECT 

9018 

CONT 

9020 

LINE 

8FE5 

NAMEEND 

9006 

NEXT 

90 2A 

PROC 

9039 

ZERO 


LINES 10-110: Using chrget, after decreasing it by one, we take the 
proc title and store it at the start of the input buffer and tag a zero byte 
on the end for checking purposes. 

LINES 120-230: Same as in cgosub, saving relevant details for return, or 
in this case eproc. 
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LINES 240-360: After collecting the start address of the program, we 
search through the program. This part gets the links and checks for the 
end of the program. The undef'D statement error is given if the latter 
occurs without finding the procedure. 

LINES 370-450: When inputting a basic line, any spaces between a line 
number and the first character are removed during tokenizing, (list 
inserts a space for clarity). This means that the first token in a line is the 
fourth byte (starting at zero, remember), so we check only this byte for 
the dproc token of $ei. If not found, the link address is placed into the 
line registers and the hunt continues. 

LINES 460-550: Having found a dproc token, we have to compare each 
character separately and as long as they match we continue checking. 
When we reach the end of the dproc program line, we check the input 
buffer for a matching zero. When all checks succeed, we have found 
the required procedure. 

LINES 560-630: Knowing our destination, we take the start address of 
the dproc line and reduce it by one, the end of the preceding line, and 
store it as the chrget address. Finally, we jump to basic to evaluate. 

IMPROVEMENTS? 

One of the first questions that came to mind was: how could we speed 
up the search for the procedures? One solution to the problem is to 
form a table in ram holding the start address where you first check to 
see if the proc name is in it. This would involve setting aside an area of 
ram: under rom would be an ideal place, for such a table. Two charac¬ 
ters would then have to be chosen: one to mark the end of an entry 
and the other, the end of the table. The make-up of the table could 
consist of the proc name and its start address. How could the table be 
filled? When the interpreter finds the keyword proc, the table would 
be searched for a match. If no match is found, then a program search, 
like our routine, could be instigated. On finding the dproc with the 
correct name, it would be added to the table in case of another call. 

There are, however, problems. Let us assume that a program con¬ 
taining procs has been run. This would mean the table has names and 
addresses within it. Before running it again, you add an extra line 
before the procedure. The line with the dproc now has a different 
address from that in the table. Another action giving rise to the same 
problem is when you load another program. It may have a proc with 
the same name as the previous program. Again the table may have 
another address. A further problem may arise in that more procs will 
be added making the table longer and longer. 

Two solutions to this problem spring to mind; there are probably 
others. The first is to write a new run command, for example, prun, 
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where one of its actions would be to place the end of table marker 
back to the beginning - thereby effectively clearing the table. The 
other is to have a command that can be actioned to do just this and 
only this. It could be initiated in direct mode or from within a program. 

A further improvement would be to allow parameters to be passed 
using variables which are local to the procedure. These variables could 
be used elsewhere in the program without losing their original values. 
We would envisage the proc command to include, in say, brackets, the 
values or other variables to be used, for example, proc inputs,4,6) or 
PROC input(2,a,6). The dproc, on the other hand, will define the variables 
to be used. For example, dproc input<x,y,Z). These variables may be 
used elsewhere but in the procedure they will start with values given in 
the proc command. 

What would have to be done is that when arriving at the procedure a 
search is carried out for the variables x,y,z in the normal variable area. If 
they are found, their current values would have to be transferred to a 
keeping area, and the new values set up. If the variable is not present, 
then it will have to be created. The default value of a numeric variable 
is zero and this will also have to be stored in the keeping area. For 
strings, the addresses will have to be stored. The eproc would have to 
reverse the situation and restore the original values. 

The process would be the same if you wanted to incorporate global 
and local commands to a basic extension. 

Our last improvement, although we are sure you could think of 
more, is to allow the names of procedures to include keywords. This 
would be relatively simple in that all you have to do is to slightly alter 
the crunch token routine (see Chapter 3). In that routine when it 
comes across a rem, for instance, it skips further crunching. All you 
have to do is to insert further coding to check for proc and dproc and 
follow the same path as rem. 

POP - RETURN without returning 

COMMAND SYNTAX 

POP 

There are no parameters to this command. If it is activated without a 
gosub, cgosub or a proc being used, a 'return withoutgosub' error will 
be generated. 

There are many occasions when one requires to leave a subroutine but 
not go back to the calling position. This is, of course, possible but 
leaves values on the stack; do it too often and the stack will become 
full and an 'out of memory' error will occur 

pop will remove from the stack the data placed there by the last 
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gosub, or equivalent. This will mean, for example, if you called a 
subroutine which in turn called another and whilst in the second you 
called pop, then you will go back to main program when the return is 
met, not the first subroutine. A goto after a pop will mean you can go 
anywhere from a subroutine without any worries about the stack, pop 
will also discharge any for/next loops. If you happen to be in one at the 
time, watch out. 

ASSEMBLY LISTING 
? *=$8631 


10 

LDA #*FF 

! RESET FOR/NEXT PTR 

20 

STA *4A 


30 

JSR *A33A 

! SEARCH STACK FOR 

GOSUB & FOR ACTIVITY 

40 

TXS 

! X REGISTER TO 

STACK POINTER 

50 

CMP #*8D 

! GOSUB MARKER ON STACK 

60 

BEQ CONT 


70 

LDX #*16 

! ERROR-RETURN 

WITHOUT GOSUB 

88 

JMP $A43? 


90 CONT 

I NX 

! REMOVE GOSUB ACTIVITY 

100 

I NX 

! INCREASE X AS IT WILL 
BE STACK POINTER 

110 

I NX 


120 

1NX 


130 

I NX 


140 

TXS 

! REPLACE STACK POINTER 

150 

RTS 



8642 COIMT 

LINES 10-20: By loading $4A with $ff, we effectively cancel any for/next 
loop. 

LINES 30-80: This is the rom routine used by return to look for the 
gosub marker on the stack. On return the stack pointer is in the X 
register and the accumulator has a value from the stack. If this is $8D, 
the return marker was present. An error will be produced if anything 
else is found. 

LINES 90-150: To remove the gosub activity, we take the stack pointer, 
which is still in the X register, and increase it by five and then use it as 
the new stack pointer. 
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RESET - Selective data restorer 

COMMAND SYNTAX 

RESET [line number] 

When no line number is present it behaves as the standard command 
restore. With the parameter it will set the data pointer to the specified 
line. 

data statements are extremely useful commands, and with sprites on 
the 64 you no doubt use them frequently. The snag comes when you 
want to use the same data statements again, restore only allows you to 
set the pointer back to the first data statement, actually the start of the 
program, which has the same effect. To use statements again that are 
not at the beginning, dummy reads have to be employed to get to the 
desired position. To allow you greater flexibility, reset will allow you to 
specify the line the next read will start at, whether before or ahead of 
the present position. The restore command takes the start of program 
address, subtracts one from it, and places it in the data pointer regis¬ 
ters. reset will take the line number, find its address, decrease it and set 
the pointers. Although the routine will give an error if the prescribed 
line number is not present, we do not check to see if it is a data line. 
This does not matter to basic as it will find the next data line when read 
is sanctioned. 

ASSEMBLY LISTING 

9 *=*8611 


10 

BNE RESET 

! CHECK FOR PARAMETER 

20 

JMP $A81D 

! NO - RESTORE IN 



BASIC ROM 

30 RESET 

JSR $81F5 

! GET LINE NUMBER 

40 

JSR $A613 

! FIND BASIC LINE 

50 

BCS CONT 

! FOUND LINE 

60 

LDX #$15 

! ILLEGAL DIRECT ERROR 

70 

JMP $A437 

! ROM ERROR ROUTINE 

80 CONT 

SEC 

! PREPARE FOR SUBTRACT 

90 

LDA $5F 

! LOW ADD OF LINE 

100 

SBC #$01 

! DECREASE BY ONE 

110 

STA $41 

! DATA REG IN PAGE 0 

120 

LDA $60 

! HIGH ADD OF LINE 

130 

SBC #$00 

! IF PAGE IS CROSSED 

140 

STA $42 

! DATA REGISTER 

150 

RTS 



8623 CONT 


8616 RESET 
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LINES 10-20: If no line number, we go straight to restore in the rom. 

LINES 30-70: When the line number is picked up it will be in the right 
location for a line search, which is immediately carried out. The carry 
flag set will indicate the line was found. The error given for not finding 

it is 'ILLEGAL DIRECT'. 

LINES 80-150: Locations $sf and $60 will have the address of the line, 
and from these we subtract one and store them in the data pointers. 


DEEK and DOKE - BASIC Addressing 

It should be clear by now that addresses are stored in two locations as a 
low and a high byte. In the resident basic the only way to find the 
address, held in locations, is to do two peeks, one for each location, 
then multiply the high byte by 256 and add in the low byte, giving the 
address in decimal. To set up an address, the reverse process is used, 
but using poke in place of peek. 

The utility commands are therefore obvious. We wish to read or set 
an address, or pair of locations, with one command. These are deek and 

DOKE. 


DEEK - seeing double 

COMMAND SYNTAX 

DEEK (low byte location) 

This returns the 16 bit value held in the given address and the following 
one. The rules for peek apply in that it must be an argument to a 
command (that is, a function). 

ASSEMBLY LISTING 
9 *=*3307 


10 

LDA *15 


20 

PHA 


30 

LDA *14 


40 

PHA 


50 

JSR *AEFA 

! CHECK FOR < 

60 

JSR *81F5 

! GET PARAMETER 

70 

JSR *AEF7 

1 CHECK FOR ) 

80 

LDY 0*01 


90 

LDA <*14),Y 


100 

TAX 


110 

DEY 


3 26 

LDA <*14),Y 
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130 


TAY 



140 


PLA 



150 


STA $14 



160 


PLA 



170 


STA *15 



180 


TXA 



190 


JSR *B391 

! A & Y IN 

FAC#1 

200 


JSR CONVERT 



210 


PLA 



220 


PLA 



230 


JMP *AD8D 

! EXIT 


240 

o 

m 

-1 

LDA *66 

! CHECK FOR 

SIGN 

250 


BPL EXIT 



260 


LDY #>DATA 



270 


LDA #<DATA 



280 


JSR *BA8C 

! CONSTANT 

TO FACM2 

290 


JSR *B86A 

! ADD FAC#2 

TO FACttl 

300 

EXIT 

RTS 



310 

DATA 

BYT *91,*00 

,*00,*00,*00 



8401 CQNUERT 8410 DATA 

840F EXIT 

LINES 10-40: deek, being a basic function rather than a command, is 
used in conjunction with other keywords. You have no doubt gathered 
that keywords use a fair number of zero page locations, notably $14, $15 
and the facs. We cannot take deek in isolation and also have to get its 
parameters. The latter means that we will use $14 and $15. We do not 
require to use these on exit, so we take the precaution of saving the 
current contents on the stack for the time being. 

LINES 50-70: These not only get the parameters, but also check for the 
convention of them being in brackets. The rom routines used will give 
the error if they are not present. 

LINES 80-180: Using the address, now in $14 and $15, we read the 
contents and store them into the registers A and Y. We can restore the 
original values to $14 and $15, and do so. 

LINES 190-230: The calling routine will expect the result in the fac#i 
and this is all the routine at $B39i does. Unfortunately it also stores it as 
a signed integer. To correct this, convert is called. Having done so, we 
pull off the return address, but we do not require to go back to the 
evaluation routine, and jump back to rom. In rom it will check that it is 
numeric data and will return to the calling routine, say print or doke. 

LINES 240-300: convert: If the number requires converting it will have 
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a negative sign. With no sign we exit the routine. Failing that we load a 
constant into fac#2 which when added to the contents of fac#i, will 
change it to an unsigned number. For a more detailed explanation, see 
mem in Chapter 7. 


DOKE - complete addressing 

COMMAND SYNTAX 

doke low byte address, value 

This turns the value to a two byte number and stores it in the given 
address and the following one. The value has a maximum of 65535 

($FFFF). 

ASSEMBLY LISTING 
9 *=$8383 


10 

JSR $81F5 

! GET PARAMETER 

20 

JSR $AEFD 

! CHECK FOR COMMA 

30 

JSR $AD8A 

! GET NEXT PARAMETER 

40 

LDA $66 


50 

BMI ERROR 


60 

CMP #$91 


70 

BCS ERROR 


80 

JSR $BC9B 

! PUT PARAMS IN A & Y 

90 

LDA $65 


100 

LDX $64 


110 

LDY #$00 


120 

STA ($14) f Y 


130 

1NY 


140 

TXA 


158 

STA ($14), Y 


160 

RTS 


170 ERROR 

JMP $B248 

! ILLEGAL QUANTITY 


ERROR 


83D4 ERROR 


LINES 10-30: The first routine called is the familiar one. The address 
will be in $14 and $is after this call. The next routine checks for a 
comma. The last one collects the data for storing and puts it in the 

FAC#1. 

LINES 40-80: These check for the legality of the data and set up the 
fac#i so we can take our values off. 
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LINES 80-160: After getting the data from fac#i, we store them in the 
addresses specified. 

OUTPUT - Setting the cursor 

in the standard basic, the normal way to set the print position is to use 
the cursor control codes. Although they do the job, they are not ideal. 
You have to remember where the current position is, they take up 
bytes in the program, and tab and spc are not much better. 

A far better way would be to specify the X and Y coordinates directly. 
To do this, three commands are included here, plot, write and enter. 
The first will only set the cursor, the second will set the cursor and 
print what you want, whilst the last is input with cursor positioning. The 
major command as far as routines go is plot. It really is a subroutine for 
the other two. 


PLOT - cursor setting 

COMMAND SYNTAX 

PLOT (X,Y) 

The maximum value of X is 39 and of Y is 24. The top left hand corner of 
the screen, cursor home position, has the coordinates of 0,0. 

ASSEMBLY LISTING 


9 *=$3381 


10 

JSR $AEFA 

! CHECK FOR ( 

20 

JSR $81F5 

! GET PARAMETER 

30 

LDA $14 


40 

CMP #$28 

! IS X > 40 

50 

BCC COMMA 


30 ILLEGAL 

JSR $B248 

! ILLEGAL QUANTITY 



ERROR 

70 COMMA 

PHA 


30 

JSR $AEFD 

! CHECK FOR COMW 

98 

JSR $81F5 

1 GET PARAMETER 

100 

LDX $14 


110 

CPX #$19 

! IS Y > 25 

120 

BCS ILLEGAL 


130 

PLA 

! RETRIEVE 1ST PARAM 

3 40 

TAY 


150 

CLC 

! SET NOT READ CO-OR 

130 

JSR $FFF0 
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170 JSR $0073 ! GET NEXT BYTE 

3 80 RTS 


S398 COMA S38D ILLEGAL 

LINES 10-70: The left hand bracket is checked for and the X coordinate 
of the command is picked up. It is then checked that it does not exceed 
the limit. On an occasion that it does, we go to a rom routine whose 
sole purpose is to generate the 'illegal quantity error'. We require to 
use location $14 again so the X coordinate is put on the stack for a 
while. 

LINES 80-120: After checking for the separating comma, we get the Y 
coordinate. This, too, is checked for legality. 

LINES 130-180: the Y coordinate was picked up in the X register and 
now we retrieve the X coordinate and place it in the Y register. This is 
the opposite to what is logical but the kernal routine calls for them in 
that order. Before calling the routine, we clear the carry flag. (If we set 
the carry we would read the cursor position.) 

After setting the cursor we get the next byte. This is for write and 
enter so that they are set up for their respective rom routines. 


WRITE and ENTER 

COMMAND SYNTAX 

WRITE (X,Y) [stri ng or variable] 

ENTER (X,Y)[string],variable 

The coordinates take the syntax of plot. The remainder of the com¬ 
mands have the same syntax as their respective standard commands, 
write as print and enter as input. 


ASSEMBLY LISTING 


9 *=$83A7 

10 ! WRITE COMMAND -PRINT 

20 JSR $8381 

30 JMP $AAA0 

40 ! ENTER COMMAND -INPUT 

50 JSR $8381 

60 JMP $ABBF 


I PLOT ROUTINE 
! PRINT ROUTINE IN ROM 

! PLOT ROUTINE 
! INPUT ROUTINE IN ROM 


These simply call the previous plot routine and then go to their normal 
rom routines. 
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Colour 

COMMAND SYNTAX 

COLOUR background!,border][,text] 

The latter two parameters are optional. If they are omitted it will not 
affect their present values. There is no error checking on values in the 
command. However, only the low byte of a number is used, that is, 
numbers up to 255, and of that only the lower four bits have effect (15 
uses four bits whilst 16 uses five). The values to be used are the same as 
in the Programmer's Reference Guide or if you prefer the key number 
less one, with the logo key the number plus seven. Variables can be 
used as parameters. If no parameters are used, the background only 
will be changed, and that will be to black. 

ASSEMBLY LISTING 

9 *=$8352 


10 

JSR $81F5 

! GET PARAMETER 

20 

LDA $14 


30 

AND #$0F 


40 

STA $D021 

! BACKGROUND 

50 

JSR $0079 

! GET LAST BYTE AGAIN 

60 

BEQ EXIT 


70 

JSR $AEFD 

! CHECK COMMA 

80 

JSR $81F5 

! GET PARAMETER 

90 

LDA $14 


100 

f^D #$0F 


110 

STA $D020 

! BORDER 

120 

JSR $0079 

! GET LAST BYTE AGAIN 

130 

BEQ EXIT 


140 

JSR $AEFD 

! CHECK COMMA 

150 

JSR $81F5 

! GET PARAMETER 

160 

LDA $14 


170 

AND #$0F 


180 

STA $0286 

' TEXT 

190 EXIT 

RTS 



8330 EXIT 


LINES 10-60: This handles the background colour. We get the first 
parameter of the command, and load in the low byte only. This is 
ANDed with $0F which will set the top four bits to zero no matter what 
state they were in. The result is used to set the colour. Finally, we 
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check, by getting the last byte again, if the end of the command has 
been reached. If it has not, we continue. 

LINES 70-130: This first checks for the comma. Then we can get the 
parameter and proceed as for the background, except to store the 
value in the border register. 

LINES 140-190: This is the same as above except, of course, we set the 
text colour. 

CHAIN - Passing variables 
COMMAND SYNTAX 

CHAIN ["filename"],[device] 

The syntax for chain follows that for load except for the secondary 
address. No errors will be given for the inclusion of the secondary 
address, as the routine will overwrite it. 

One of the problems of load is that if you load a larger progrram, after 
running a smaller program, you overwrite any variables. Also load, if 
initiated by a direct command, will perform a clr so you will lose the 
variables anyway. Sometimes we wish to transfer as many of the vari¬ 
ables as possible from one program to another, hence chain. 

chain differs from the normal load in two respects. First, it saves the 
data held in the variable and string areas before the load and restores it 
afterwards. Secondly, it automatically runs the program - obviously it 
has to be in basic. 

chain transfers the area of memory holding the variables and arrays 
to below the string storage. The desired program is loaded and then 
the data moved back down to the end of the new program. Finally all 
we have to do is to run the program. 

Although a fuller, and better, explanation of the way variables are 
stored is given in Chapter 1, here is a reminder of areas that chain 
cannot deal with. Defined functions are held in the program, only the 
pointer is in the variable area, and therefore cannot be transferred. The 
same applies to strings unless they are concatenated or held in arrays. 

There are two listings for this command. The first is entered on the 
command and it will call the main chain routine. Although the chain 
routine works as designed we found that, due to the memory move 
routines, if there were no variables to move you ended up with a page 
which could contain anything. The first routine will rectify that after the 
main routine. This also means that chain could be used as a direct 
command to load and run disk or tape programs. 
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ASSEMBLY LISTING 1 
9 *=*92B3 


10 


LDA 

*32 

20 


CMP 

*2E 

30 


BNE 

ZERO+1 

40 


LDA 

*31 

50 


CMP 

*2D 

80 


BNE 

ZERO+1 

70 


LDA 

#*80 

80 

ZERO 

BIT 

*00A9 

90 


STA 

*0C 

100 


JSR 

*0079 

110 


JMP 

*9080 

129 


LDA 

*0C 

130 


BPL 

RUN 

140 


DEC 

*30 

150 


DEC 

*32 

180 

RUN 

JMP 

*A7AE 


! END OF ARRAYS 
! CHECK WITH START 
OF VARIABLES 


! NOT THE SAME ADDRESSES 


! *00 FOR VARIABLES 
*89 FOR NONE 
! GET LAST CHRGET BYTE 
! PERFORM CHAIN 
! GET FLAG 
! VARIABLES 

! DEC ARRAY ADDS BY PAGE 


92D3 RUN 92Cl ZERO 

ASSEMBLY LISTING 2 


9 *=*9080 


10 

JSR 

*E1D4 

20 

LDA 

#*00 

30 

STA 

*B9 

40 

JSR 

*B528 

50 

LDA 

*2D 

80 

STA 

*5F 

78 

LDA 

*2E 

80 

STA 

*80 

90 

SEC 


100 

LDA 

*31 

110 

STA 

*5A 

120 

SBC 

*2F 

130 

STA 

*FD 

140 

LDA 

*32 

150 

STA 

*5B 

180 

SBC 

*30 

170 

STA 

*FE 


! GET LOAD 

PARAMETERS 

! ENSURE RELOCATING LOAD 

! GARBAGE COLLECTION 
! START OF BLOCK TO MOVE 

! END OF RESIDENT PROG 

! END OF BLOCK 
! CALC AREA OF ARRAYS 
! ALSO END OF ARRAYS 
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180 


LDA 

$33 

190 


SEC 


200 


SBC 

#$01 

210 


STA 

$58 

220 


LDA 

$34 

230 


SBC 

#$00 

240 


STA 

$59 

250 


JSR 

$A3BF 

260 


LDA 

$37 

270 


STA 

$41 

280 


LDA 

$38 

290 


STA 

$42 

300 


LDA 

$58 

310 


STA 

$FB 

320 


STA 

$37 

330 


INC 

$59 

340 


LDA 

$59 

350 


STA 

$FC 

360 


STA 

$38 

370 


LDX 

$2B 

380 


LDY 

$2C 

390 


LDA 

#$00 

400 


JSR 

$FFD5 

410 


BCC 

STATUS 

420 


JMP 

$E0F9 

430 

STATUS 

JSR 

$FFB7 

440 


AND 

#$BF 

450 


BE8 

CONT 

460 


LDX 

#$1D 

470 


JMP 

$A437 

430 

CONT 

STX 

$2D 

490 


STY 

$2E 

500 


STX 

$5F 

510 


STY 

$60 

520 


LDA 

$FB 

530 


STA 

$5A 

540 


LDA 

$FC 

550 


STA 

$5B 

560 


SEC 


570 


LDA 

$33 

580 


SBC 

#$01 

590 


TAY 


600 


LDA 

$34 

610 


SBC 

#$00 


! NEW END OF BLOCK 


! PERFORM MOVE 
! SAVE END OF BASIC AREA 


! SAVE BEGINNING OF 
NEW BLOCK 

! SET TOP OF BASIC AREA 
! RECTIFY PAGE 


! SET LOAD ADDRESS 

! SET FOR LOAD 
! KERNAL LOAD 
! MAYBE GOOD LOAD 
! LOAD ERROR 
DEPENDING ON A 
! READ I/O STATUS WORD 

! LOAD OK 

! LOAD ERROR 
! SET END OF PROGRAM 

I SET FOR VARIABLE MOVE 

! START OF BLOCK TO MOVE 


! END OF BLOCK 
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620 

TAX 


630 

TYA 


640 

SEC ! 

CALC AMOUNT TO MOVE 

650 

SBC $5A 


660 

STA $58 


670 

TAY ! 

NO OF BYTES OF 



INCOMPLETE PAGE 

680 

TXA 


690 

SBC $5B 


790 

TAX ! 

NO OF PAGES TO MOVE 

710 

I NX ! 

FOR EASIER CHECKING 

720 

TYA 


730 

BEQ PAGE ! 

NO SEPARATE BYTES 

740 

LDA $5A ! 

MOVE SEPARATE 



BYTES FIRST 

750 

CLC 


760 

ADC: $58 


770 

STA $5A 


780 

BCC NOINC 


790 

INC $58 


800 

CLC 


810 NOINC 

LDA $5F 


820 

ADC $58 


830 

STA $5F 


840 

BCC NOINCA 


850 

INC $60 


860 NOINCA 

TYA 


870 

EOR #$FF ! 

l'S COMPLEMENT 

880 

TAY 


890 

INY ! 

2'S COMPLEMENT 

900 

DEC $5B 


910 

DEC $60 


920 PAGE 

LDA <$5A),Y 


930 

STA ($5F),Y 


940 

INY 


950 

BNE PAGE 


960 

INC $5B 


970 

INC $60 


980 

DEX ! 

POINTER FOR COMPLETION 

990 

BNE PAGE 


1000 

SEC 


1010 

LDA $5F 


1020 

STA $31 ! 

NEW ARRAY END 

1030 

SBC $FD ! 

CALC ARRAY START 

1040 

STA $2F 


1050 

LDA $60 
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1040 

STA $32 


1070 

SBC $FE 


1080 

STA $30 


1090 

LDA $41 

! RESET END OF BASIC 

1100 

STA $37 


1110 

LDA $42 


1120 

STA $38 


1130 

PLA 


1140 

PLA 

! REMOVE RETURN ADDRESS 

1150 

JSR $A533 

! RECHAIN LINES 

1140 

LDA #$00 


1170 

JSR $FF90 

! TURN OF KERNAL MESSAGES 

1180 

JSR $FFE7 

! CLALL 

1190 

JSR $A477 

! END OF CLR 

1200 

JSR $A48E 

! BACK UP TEXT POINTER 

1210 

JMP $92CC 

! BACK TO FIRST ROUTINE 


90E3 CONT 911? NOINC 

9123 NOINCA 912C PAGE 

90D7 STATUS 

As chain is just moving memory and loading, it is an amalgamation of 
routines previously described. Where we come across lines used else¬ 
where, the description will direct you there. By copying lines rather 
than using subroutines, we make the routine more transportable. 

LISTING 1 

LINES 10-110: Here we find out if there are variables to move by taking 
the address of the end of program away from the end of arrays address. 
On the result we set a flag in location $oc to $80 or $00 denoting 
variables. We then jump to the main chain routine, LISTING 2. 

LINES 120-160: Having returned from the routine, we check our flag 
by loading and testing the sign flag. A positive result tells us that 
variables were transferred and no further adjustments are required. If 
the result was minus, then the addresses denoting the start and end of 
arrays are reduced by one page, the high byte of the address less one. 
The final action of chain is to go to rom, where the next basic line is 
executed. The main routine does the setting up for this just before it 
comes back to here. 

LISTING 2 

LINES 10-40: We use the rom routine to get and set up the loading 
parameters. To ensure that the load has no secondary address, we 
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unset that location. The garbage collection routine at $B526 will tidy up 
the variable area so that it uses the least space possible. 

LINES 50-250: Although the locations from which the addresses are 
gathered are different, these lines are discussed in Chapter 6, Memory. 
Moving, lines 1190 -1340 (see pages 131-136). There is, however, one 
extra item involved. To be able to set the start of array address, after 
loading, we calculate its number of bytes and store it in locations $fd 
and $fe. 

LINES 260—360: The data has been moved and now we protect it by 
changing the pointer to the limit of basic. This value will be obtained 
from the move routine, locations $58 and $59, after increasing the latter 
by one. This is because in the move routine the high byte is decreased 
before checking for completion. Increasing rectifies this. The original 
end of basic pointer is stored for later use. 

LINES 370-470: The loading sequence is covered in the merge and 
append routine in Chapter 7, lines 550-640 (see pages 158-163). 

LINES 480-990: Moving the block down is virtually identical to lines 
90-550 of Memory Moving in Chapter 6. 

LINES 1000-1210: With the major work done, just the clearing up 
remains. First we calculate the new start of arrays and set its registers. 
Then we restore the pointer to the end of basic. Six rom routines are 
visited to finish off the routine. The first two rechain the lines of the 
basic program, so that the interpreter can follow them, and turn off the 
kernal messages. The call to $ffe7 closes all open files and sets the 
input/output channels to their default values. The following subroutine 
is made halfway into clr. This will do a restore, reset cont locations, 
and amend the stack point. The last two routines will do the auto-run. 
The former sets the chrget address to one byte before the program 
starts. The last one returns us to the calling routine to finish off. 


INKEY$ — A waiting GET 

COMMAND SYNTAX 

i IN KEYS 

ii INKEYS"" 

iii INKEYS AS-where A$ is predefined 

iv INKEYS "characters" 

All commands will stop and wait for a key press. The first two will wait 
until any key is pressed. The latter two will wait for a key press 
corresponding to a character within the defined string. The ASCII value 
of the key press will be placed in the variable st, and will remain there 
until an input-output is performed on cassette, serial or RS232. 
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In 64 basic there are two commands for receiving a user input from 
the keyboard: input and get. The last accepts a key press without a 
return but will not wait for one. This entails checking the input and 
gotos until the key press you want is received (see Chapter 4 on 
checking for function keys in basic), input waits for a key but you also 
have to press return, and the cursor is also in operation. 

inkeys will sit and wait for a key press, after emptying the keyboard 
buffer, and, if required will check for a particular key or keys. To allow 
for further checks we use the reserved variable sr to store the input. 
Using st is easy in that it has a predefined location in zero page. 

ASSEMBLY LISTING 
9 *=$904E 


10 

BNE STRING ! 

PARAMETERS PRESENT 

20 ANYKEY 

LDA #$00 ! 

CLEAR KEY BUFFER 

30 

STA $CB 


40 BYTE 

JSR $FFE4 ! 

GET CHARACTER 

50 

BEQ BYTE ! 

NO KEY 

69 

STA $90 ! 

ST LOCATION 

70 

RTS 


30 STRING 

JSR $AD9E ! 

GET STRING 

90 

JSR $B6A3 1 

DISCARD LNWANTED STRING 

100 

CMP #$00 ! 

NULL STRING? 

110 

BEQ ANYKEY ! 

NULL STRING 

120 

STA $FB 1 

NO OF CHARS IN STRING 

130 

LDA #$08 ! 

EMPTY KEY BUFFER 

140 

STA $C6 


150 BYTE1 

JSR $FFE4 ! 

GET CHARACTER 

160 

BEQ BYTE1 ! 

NO KEY 

170 

LDY $FB ! 

GET NO. OF CHARS 

180 

DEY 


190 NEXT 

CMP <$22),Y! 

CHECK STRING 

200 

BEQ MATCH ! 

FOUND SAME CHAR 

210 

DEY 


228 

BPL NEXT ! 

CONTINUE SEARCH 

236 

BMI BYTE1 ! 

ANOTHER KEY PRESS 

240 MATCH 

STA $90 ! 

ST LOCATION 

250 

RTS 



9050 ANYKEY 
906C BYTE1 
9074 NEXT 


9054 BYTE 
907D MATCH 
905C STRING 
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LINES 10-70: If there are parameters (cases ii, iii and iv of the command 
syntax), the zero flag will not be set and these lines are skipped over, at 
least for the time being. Proceeding on we set the flag for the number 
of characters in the keyboard buffer to zero. The kernal routine at $ffe4 
will return the ASCII value of key presses in the order they were placed 
in the buffer. If none, then the accumulator will hold zero, so we 
continue to call the routine until a value is returned. That value is 
placed in the location which the reserved variable st uses, and we 
return to continue the basic program. 

LINES 80—240: The call to the rom routine does our string work. It finds 
the string, especially if it is a variable, determining its length and giving 
syntax errors if a non-string parameter was supplied. On returning 
from the routine, the number of characters will be in a and the start 
address in locations $22 and $23. If there were no characters in the 
string, we branch back to the previous section and wait for any key. 

After clearing the buffer and getting a key press value we can check it 
against the string. The y register will be loaded with the number of 
characters and decreased as we check the whole string. If the complete 
string is checked and no match is found, then the next key press is 
evaluated. Once a match is found, it is stored in st and we return to 
carry on with your program. 


LOMEM and HIMEM - Setting the area of work 

COMMAND SYNTAX 

LOMEM address 
HIMEM address 

The address range that is permissible with these commands is between 
1024 and 32767. 'illegal quantity' errors are given outside this range. 
The actual start of a program will be one greater than the address given 
in lomem. Commands can be used in direct or program mode. 

Changing the memory configuration is a useful, and indeed neces¬ 
sary, task. By raising the base of a program, you can store items such as 
sprite data, hires screens or even two normal screens and it will not be 
affected by a program. 

At the other end you may wish to put a machine code routine and so 
to protect it at the top of memory from being overwritten by the 
variables, so you can set the limit of basic to below your routine. 

lomem will set the lower and himem the upper limit of basic. So that 
they could be used in a loader program the routine does not clear that 
program. Subsequent programs will be loaded to the new lomem 
address. The ideal place for these commands is at the beginning of a 
program before any variables are defined. Variables defined after these 
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commands will be placed in the new area. You can use chain to load 
the next program if there are variables you wish to transfer. 

ASSEMBLY LISTING 


9 

*=$91 69 





10 

INPUT 


BNE 

GATHER ! 

PARAMETERS 

20 



JMP 

$AF08 ! 

SYNTAX ERROR 

30 

GATHER 


JSR 

$81F5 ! 

GET PARAMETERS 

40 



LDA 

$15 


50 



CMP 

#$04 ! 

CHECK LOW LIMIT 

62 



BCS 

TOP ! 

O.K. 

70 

ERROR 


LDX 

#$0E ! 

ILLEGAL QUANTITY 

30 



JMP 

$A437 ! 

ERROR ROUTINE 

90 

TOP 


CMP 

#$80 ! 

UPPER LIMIT 

100 



BCS 

ERROR ! 

FAILED 

110 



RTS 



120 

! START 

OF 

HI MEM 


130 



JSR 

INPUT 


140 



STA 

$38 ! 

SET TOP POINTER 

150 



LDA 

$14 


1 62 



STA 

$37 


170 



JMP 

$A45E ! 

CLR AND RETURN 

130 

! START 

OF 

LOMEM 


190 



JSR 

INPUT 


200 



LDY 

#$00 


210 



TYA 



220 



STA 

<$14),Y! 

CLEAR FIRST 3 BYTES 

230 



I NY 



240 



STA 

<$14),Y 


250 



I NY 



262 



STA 

<$14),Y 


270 



LDA 

$14 


230 



CLC 



290 



ADC 

#$01 


300 



STA 

$2B ! 

SET START OF BASIC 

310 



TAX 



320 



LDA 

$15 


330 



ADC 

#$00 


340 



STA 

$2C 


350 



TAY 



340 



TXA 



370 



ADC 

#$02 


380 



STA 

$2D ! 

SET START OF VARIABLES 

390 



TYA 



400 



ADC 

#$00 
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410 STA *2E 

420 JMP *A663 ! CLR AND RETURN 


9177 ERROR 916E GATHER 

9169 INPUT 917C TOP 

LINES 10-110: input: This subroutine is used by both commands. It 
deals with the gathering and checking of addresses. First we check that 
there is an address. No address, then no command, and a syntax error 
is given. When the address is picked up, it is first checked for the lower 
limit and then for the higher. 

LINES 130-170: himem: After visiting the input routine, we place the 
address in the pointers to the limit of basic. We then jump to the clr 
routine to finish off: this will set all the remaining relevant pointers 
(such as the string pointer). 

LINES 190-420: lomem: basic requires that the first byte of the basic 
program area is zero (normally 2048, $0800) and that two zeros signify 
the end of the program. In the new area these will be together, as there 
is no program, so we set those first from the address given. To set the 
start of the program we increase it by one, and from that we add a 
further two for the address to the start of the variables, or end of 
program if you prefer. Calling the clr routine will set the end of 
variables and array pointers. 

QUIT 

COMMAND SYNTAX 
QUIT 

There are no arguments with this particular command. 

quit disables the utility and its commands, leaving you with the 
standard basic. It does not, however, reset the top of memory back to 
its original ($A000). This will leave the utility intact which can be reiniti¬ 
ated by SYS 32768. 

quit simply restores all the vectors and pointers we changed on start 
up to their standard values. 


ASSEMBLY LISTING 
9 *=*91B7 


10 

LDA #$7 6 


20 

STA $0304 

! TOKENISE BASIC TEXT 

30 

LDA #$A5 


40 

STA $0305 
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50 

LDA 

#$1A 

66 

STA 

$0306 

78 

LDA 

#$E4 

30 

STA 

$0308 

90 

LDA 

#$A7 

106 

STA 

$6307 

110 

STA 

$0309 

120 

LDA 

#$86 

130 

STA 

$030A 

140 

LDA 

#$AE 

350 

STA 

$030B 

160 

LDA 

#$FE 

170 

STA 

$0317 

180 

STA 

$0319 

190 

LDA 

#$66 

260 

STA 

$0316 

210 

LDA 

#$47 

220 

STA 

$0318 

230 

SEI 


240 

LDA 

#$48 

250 

STA 

$028F 

260 

LDA 

#$EB 

270 

STA 

$0290 

280 

CL I 


296 

PLA 


300 

PLA 


310 

JMP 

$A474 


! BASIC TEXT LIST 
! BASIC CHAR DISPATCH 

I BASIC TOKEN EVALUATION 

! BRK INTERRUPT 
! Mil INTERRUPT 


! KEYBOARD TABLE SETUP 

! READY FOR BASIC 
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Introduction 

We are going to supply the complete utility in the form of a Supermon 
listing. If you do not possess a monitor, you can find Supermon in the 
appendices. For the area $8 @de to $8iF4, keywords and vectors, use the m 
function of the monitor. You may also find it easier to use the memory 
dump in Chapter 6 for that area. Save to tape or disk regularly as you 
go- 

We had thought of also giving the utility in data statement form. This 
would have come to about 690 lines, of seven items of data on each, 
which would have been a mammoth task of programming for anyone 
and very prone to error. 


8000 20 

0F 

80 

JSR 

♦80 0F 

8030 

85 

38 


STA 

♦38 

8003 20 

54 

80 

JSR 

♦8054 

803E 

85 

34 


STA 

♦34 

8004 20 

41 

80 

JSR 

♦8041 

8040 

40 



RTS 


800? 20 

34 

80 

JSR 

♦8034 

8041 

A? 

7E 


LDA 

#^7E 

800C 4C 

00 

?2 

JMP 

♦?200 

8043 

8D 

14 

03 

STA 

♦0314 

800F A? 

0? 


LDA 

#♦09 

8044 A? 

41 


LDA 

#♦41 

8011 8D 

04 

03 

STA 

♦0304 

8048 

8D 

18 

03 

STA 

♦0318 

8014 A? 

BC 


LDA 

#♦80 

804B A? 

80 


LDA 

#♦80 

8014 8D 

04 

03 

STA 

♦0304 

804D 

8D 

17 

03 

STA 

♦0317 

801? A? 

02 


LDA 

#♦02 

8050 

8D 

1? 

03 

STA 

♦031? 

80IB 80 

08 

03 

STA 

♦0308 

8053 

40 



RTS 


80IE A? 

2? 


LDA 

#♦2? 

8054 

78 



SEI 


8020 8D 

0A 

03 

STA 

♦030A 

8055 A? 

22 


LDA 

#♦22 

8023 A? 

82 


LDA 

#♦82 

8057 

8D 

8F 

02 

STA 

♦028F 

8025 8D 

05 

03 

STA 

♦0305 

805A A? 

87 


LDA 

#♦87 

8028 8D 

07 

03 

STA 

♦0307 

8050 

8D 

?0 

02 

STA 

♦02?0 

8028 A? 

83 


LDA 

#♦83 

805F 

58 



OLI 


802D 8D 

0? 

03 

STA 

♦030? 

8040 

40 



RTS 


8030 8D 

0B 

03 

STA 

♦030B 

8041 

48 



PHA 


8033 40 



RTS 


8042 

8A 



TXA 


8034 A? 

FF 


LDA 

♦♦FF 

8043 

48 



PH* 


8034 85 

37 


STA 

♦37 

8044 

?8 



TYA 


8038 85 

33 


STA 

♦33 

8045 

48 



PHA 


803A A? 

7F 


LDA 

#^7F 

1 8044 A? 

7F 


LDA 

♦K7F 
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8068 

80 

0D 

DO 

STA *DD0D 

80 C7 

92 



??? 


8868 

AC 

0D 

DD 

LDY $DD0D 

80 C8 

8C 

91 

80 

STY 

$8091 

806E 

10 

03 


BPL $8073 

88 CB 

91 

4D 


STA 

<$4D),Y 

8078 

4C 

72 

FE 

JMP $FE72 

80 CD 

90 

FB 


BCC 

$80 CA 

8073 

20 

BC 

F6 

JSR $F6BC 

80 CF 

85 

6E 


STA 

$6E 

8076 

20 

El 

FF 

JSR $FFE1 

80D1 

88 



DEY 


807? 

F0 

03 


BEQ $80 7E 

80D2 

60 



RTS 


88 7B 

4C 

72 

FE 

JMP $FE72 

80 D3 

8D 

FF 

FF 

STA 

$FFFF 

80 7E 

20 

15 

FD 

JSR $FD15 

80 D6 

FF 



??? 


8081 

20 

A3 

FD 

JSR $FDA3 

80 D7 

FF 



??? 


8884 

20 

18 

E5 

JSR $E518 

80D8 

00 



BRK 


8087 

20 

54 

80 

JSR $8054 

80 D9 

FF 



??? 


808A 

20 

41 

80 

JSR $8041 

80DA 

FF 



??? 


80 8D 

6C 

02 

A0 

JMP ($A002) 

80 DB 

FF 



??? 


8099 

98 



TYA 

80 DC 

F6 

FF 


INC 

$FF,X 

8091 

87 



??? 

80 DE 

B6 

F7 


LDX 

$F7,Y 

8092 

4C 

86 

B2 

JMP $B286 

80E0 

00 



BRK 


8095 

83 



??? 

80E1 

60 



RTS 


8096 

9F 



??? 

80E2 

00 



BRK 


8097 

84 

EB 


STY $EB 

80 E3 

00 



BRK 


8099 

84 

36 


STY $36 

80E4 

D6 

83 


DEC 

$83,X 

80 ?B 

85 

BE 


STA $BE 

80 E6 

D6 

83 


DEC 

$83 ,X 

809D 

85 

14 


STA $14 

80E8 

00 



BRK 


80 9F 

84 

51 


STY $51 

80 E9 

00 



BRK 


80A1 

83 



??? 

80EA 

00 



BRK 


80A2 

A6 

83 


LDX $83 

80EB 

68 



PLA 


80A4 

AE 

8F 

B4 

LDX $B48F 

80EC 

00 



BRK 


80A7 

8F 



??? 

80 ED 

00 



BRK 


80A8 

80 



??? 

80 EE 

00 



BRK 


80A9 

83 



??? 

80 EF 

40 



RTI 


80AA 

AC 

83 

51 

LDY $5183 

80F0 

00 



BRK 


80AD 

8E 

C4 

89 

STX $89C4 

80 FI 

00 



BRK 


80B0 

43 



??? 

80F2 

00 



BRK 


80B1 

8F 



??? 

80 F3 

40 



RTI 


80 B2 

A6 

87 


LDX $87 

80F4 

00 



BRK 


80 B4 

92 



??? 

80 F5 

40 



RTI 


80 B5 

8B 



??? 

80F6 

4F 



??? 


80 B6 

2D 

84 

01 

AND $D184 

80 F7 

46 

C6 


LSR 

$C6 

80B9 

8F 



??? 

80F9 

4B 



??? 


80 BA 

3A 



??? 

80 FA 

45 

D9 


EOR 

$D9 

80 BB 

A9 

D1 


LDA #$D1 

80FC 

44 



??? 


80 BD 

A8 



TAY 

80 FD 

4F 



??? 


80 BE 

30 

86 


BMI $8046 

80FE 

4B 



??? 


80 C0 

B6 

91 


LDX $91 ,Y 

80 FF 

C5 

54 


CMP 

$54 

80 C2 

39 

8D 

10 

ID $108D,Y 

8101 

45 

CE 


EOR 

$CE 

80 C5 

86 

B5 


STX $B5 

8103 

54 



??? 
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8184 

57 



??? 


8185 

CF 



??? 


8104 

48 



PHA 


8107 

45 

D8 


EOR 

$D8 

8109 

42 



??? 


810A 

49 

CE 


EOR 

#$CE 

810C 

4F 



??? 


810D 

4C 

C4 

43 

JMP 

$43C4 

8110 

4F 



??? 


8111 

4C 

4F 

55 

JMP 

$554F 

8114 

02 



??? 


8115 

57 



??? 


8114 

52 



??? 


8117 

49 

54 


EOR 

#$54 

8119 

C5 

43 


CMP 

$43 

811B 

47 



??? 


811C 

4F 



??? 


8110 

54 



??? 


81 IE 

CF 



??? 


81 IF 

43 



??? 


8120 

47 



??? 


8121 

4F 



??? 


8122 

53 



??? 


8123 

55 

C2 


EOR 

$C2,X 

8125 

50 

4C 


BMC 

$8173 

8127 

4F 



??? 


8128 

04 



??? 


3129 

45 

4E 


EOR 

$4E 

812B 

54 



??? 


812C 

45 

02 


EOR 

$02 

812E 

44 



??? 


812F 

55 

40 


EOR 

$4D,X 

8131 

00 

52 


BNE 

$8185 

8133 

45 

4E 


EOR 

$4E 

8135 

55 

CO 


EOR 

$CD,X 

8137 

44 



??? 


8138 

45 

4C 


EOR 

$4C 

813A 

45 

54 


EOR 

$54 

813C 

C5 

4D 


CMP 

$4D 

813E 

45 

52 


EOR 

$52 

8140 

47 



??? 


8141 

C5 

43 


CMP 

$43 

8143 

4F 



??? 


8144 

44 



??? 


8145 

45 

02 


EOR 

$02 

3147 

41 

55 


EOR 

($55,X) 


8149 

54 



??? 


814A 

CF 



??? 


81 4B 

50 

52 


BVC 

Li¬ 

ck 

i—1 

CO 

& 

8140 

4F 



??? 


SUE 

C3 



??? 


814F 

44 



??? 


8150 

50 

52 


BVC 

$81A4 

8152 

4F 



??? 


8153 

C3 



??? 


8154 

45 

50 


EOR 

$50 

8156 

52 



??? 


8157 

4F 



??? 


8158 

C3 



??? 


8159 

50 

4F 


BVC 

$81AA 

815B 

00 

51 


BNE 

$81AE 

8150 

55 

49 


EOR 

$49,X 

815F 

04 



??? 


8160 

54 



??? 


8161 

52 



??? 


8162 

41 

43 


EOR 

<$43,X) 

8164 

C5 

52 


CMP 

$52 

8166 

45 

53 


EOR 

$53 

8168 

45 

04 


EOR 

$04 

816A 

43 



??? 


816B 

48 



PHA 


816C 

41 

49 


EOR 

<$49,X) 

816E 

CE 

4C 

4F 

DEC 

$4F4C 

8171 

4D 

45 

CO 

EOR 

$CD45 

8174 

48 



PHA 


8175 

49 

40 


EOR 

#$4D 

8177 

45 

CD 


EOR 

$CD 

8179 

49 

4E 


EOR 

#$4E 

817B 

4B 



??? 


817C 

45 

59 


EOR 

$59 

817E 

A4 

40 


LOY 

$40 

8180 

45 

CO 


EOR 

$CD 

8182 

41 

50 


EOR 

<$50,X) 

8184 

50 

45 


BVC 

$81CB 

8186 

4E 

C4 

54 

LSR 

$54C4 

8189 

52 



??? 


818A 

4F 



??? 


818B 

46 

C 6 


LSR 

$C6 

8180 

5A 



??? 


818E 

5A 



??? 


818F 

5A 



??? 


8190 

5A 



??? 
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8191 

5A 

??? 

81BF 

5A 


??? 

8192 

EA 

NOP 

81C9 

5A 


??? 

8193 

5A 

??? 

81 Cl 

5A 


??? 

8194 

5A 

??? 

81C2 

5A 


??? 

8195 

5A 

??? 

8103 

5A 


??? 

8196 

5A 

??? 

81C4 

5A 


??? 

8197 

5A 

??? 

81C5 

5A 


??? 

8198 

5A 

??? 

81C6 

EA 


NOP 

8199 

EA 

NOP 

81C7 

44 


??? 

819A 

5A 

??? 

81C8 

45 

45 

EOR *45 

819B 

5A 

??? 

81CA 

CB 


??? 

8190 

5A 

??? 

81CB 

08 


BRK 

819D 

5A 

??? 

81CC 

FF 


??? 

819E 

5A 

??? 

81 CD 

FF 


??? 

819F 

5A 

??? 

81CE 

FF 


??? 

81A8 

5A 

??? 

81CF 

FF 


??? 

81A1 

EA 

NOP 

81D8 

FF 


??? 

81A2 

5A 

??? 

81D1 

FF 


??? 

81A3 

5A 

??? 

81D2 

FF 


??? 

81A4 

5A 

??? 

81D3 

FF 


??? 

81A5 

5A 

??? 

81D4 

FF 


??? 

81A6 

EA 

NOP 

81D5 

FF 


??? 

81A7 

5A 

??? 

81D6 

FD 

FF FF 

SBC *FFFF,X 

81A8 

5A 

??? 

81D9 

FF 


??? 

81A9 

5A 

??? 

81DA 

FF 


??? 

81AA 

5A 

??? 

81DB 

FF 


??? 

81AB 

EA 

NOP 

81 DC 

FF 


??? 

81AC 

5A 

??? 

81DD 

7F 


??? 

81A0 

5A 

??? 

81DE 

FF 


??? 

81AE 

5A 

??? 

81DF 

FF 


??? 

81AF 

5A 

??? 

81E9 

00 


BRK 

81B8 

EA 

NOP 

81E1 

00 


BRK 

8181 

5A 

??? 

81E2 

00 


BRK 

81B2 

5A 

??? 

81E3 

00 


BRK 

8183 

5A 

??? 

81E4 

00 


BRK 

81B4 

5A 

??? 

81E5 

00 


BRK 

8185 

5A 

??? 

81E6 

00 


BRK 

8186 

5A 

??? 

81E7 

00 


BRK 

8187 

EA 

NOP 

81E8 

00 


BRK 

81B8 

5A 

??? 

81E9 

00 


BRK 

8189 

5A 

??? 

81EA 

00 


BRK 

81GA 

5A 

??? 

81EB 

08 


PHP 

81BB 

5A 

??? 

81 EC 

01 

00 

ORA <*80,X) 

81BC 

5A 

??? 

81 EE 

00 


BRK 

81BD 

EA 

NOP 

81EF 

00 


BRK 

81 BE 

5A 

??? 

81F8 

00 


BRK 
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81F1 

00 


BRK 


81F2 

00 


BRK 


81F3 

00 


BRK 


81F4 

00 


BRK 


81F5 

20 

8A AD 

JSR 

*AD8A 

81F8 

4C 

F7 B7 

JMP 

*B7F 7 

81FB 

A5 

01 

LDA 

*01 

81FD 

29 

FE 

AND 

#*FE 

81FF 

85 

01 

STA 

*01 

8261 

40 


RTS 


8202 

A5 

01 

LDA 

*01 

8204 

09 

01 

ORA 

#*01 

8204 

85 

01 

STA 

*01 

8208 

40 


RTS 


8209 

A4 

7A 

LDX 

*7A 

820B 

A0 

04 

LDY 

#*04 

820D 

84 

0F 

STY 

*0F 

820F 

BD 

00 02 

LDA 

*0200 

8212 

10 

07 

BPL 

*821B 

8214 

C9 

FF 

CMP 

#*FF 

8214 

F0 

3E 

BEQ 

*8254 

8218 

E8 


I NX 


8219 

D0 

F4 

BNE 

*820F 

821B 

C9 

20 

CMP 

#*20 

821D 

F0 

37 

BEQ 

*8254 

821F 

85 

08 

STA 

*08 

8221 

C9 

22 

CMP 

#*22 

8223 

F0 

54 

BEQ 

*827B 

8225 

24 

0F 

BIT 

*0F 

8227 

70 

2D 

BVS 

*8254 

8229 

C9 

3F 

CMP 

#*3F 

822B 

D0 

04 

BNE 

*8231 

822D 

A9 

99 

LDA 

#*99 

822F 

D0 

25 

BNE 

*8254 

8231 

C9 

30 

CMP 

#*30 

8233 

90 

04 

BCC 

*8239 

8235 

C9 

3C 

CMP 

#*3C 

8237 

90 

ID 

BCC 

*8254 

8239 

84 

71 

STY 

*71 

823B 

A0 

00 

LDY 

#*00 

823D 

84 

0B 

STY 

*0B 

823F 

88 


DEY 


8240 

84 

7A 

STX 

*7A 

8242 

CA 


DEX 


8243 

C8 


I NY 


8244 

E8 


I NX 



8245 

BD 

00 

02 

LDA 

*0200,X 

8248 

38 



SEC 


8249 

F9 

9E 

A0 

SBC 

*A09E,Y 

824C 

F0 

F5 


BEQ 

*8243 

824E 

C9 

80 


CMP 

#*80 

8250 

D0 

30 


BNE 

*8282 

8252 

05 

0B 


ORA 

*0B 

8254 

A4 

71 


LDY 

*71 

8254 

E8 



I NX 


8257 

C8 



I NY 


8258 

99 

FB 

01 

STA 

*01FB,Y 

825B 

B9 

FB 

01 

LDA 

*01FB,Y 

825E 

F0 

59 


BEQ 

*82B9 

8240 

38 



SEC 


8241 

E9 

3A 


SBC 

#*3A 

8243 

F0 

04 


BEQ 

*8249 

8245 

C9 

49 


CMP 

#*49 

8247 

D0 

02 


BNE 

*824B 

8249 

85 

0F 


STA 

*0F 

824B 

38 



SEC 


824C 

E9 

55 


SBC 

#*55 

824E 

D0 

9F 


BNE 

*820F 

8270 

85 

08 


STA 

*08 

8272 

BD 

00 

02 

LDA 

*0200,X 

8275 

F0 

DF 


BEQ 

*8254 

8277 

C5 

08 


CMP 

*08 

8279 

F0 

DB 


BEQ 

*8254 

827B 

C8 



I NY 


827C 

99 

FB 

01 

STA 

*01FB,Y 

827F 

E8 



I NX 


8280 

D0 

F0 


BNE 

*8272 

8282 

A4 

7A 


LDX 

*7A 

8284 

E4 

0B 


INC 

*0B 

8284 

C8 



I NY 


8287 

B9 

9D 

A0 

LDA 

*A09D,Y 

828A 

10 

FA 


BPL 

*8284 

828C 

B9 

9E 

A0 

LDA 

*A09E,Y 

828F 

D0 

B4 


BNE 

*8245 

8291 

A0 

FF 


LDY 

#*FF 

8293 

CA 



DEX 


8294 

C8 



I NY 


8295 

E8 



I NX 


8294 

BD 

00 

02 

LDA 

*0200,X 

8299 

38 



SEC 


829A 

F9 

F4 

80 

SBC 

*80F4,Y 

829D 

F0 

F5 


BEQ 

*8294 
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829F 

C9 

80 


CMP 

#*80 

82F7 

20 

47 

AB 

JSR 

*AB47 

82A1 

D0 

02 


BNE 

*82A5 

82FA 

D0 

F6 


BNE 

*82F2 

82A3 

F0 

AD 


BEQ 

*8252 

82FC 

4C 

F3 

A6 

JMP 

*A6F3 

82A5 

A6 

7A 


LDX 

*7A 

82FF 

4C 

EF 

A6 

JMP 

*A6EF 

82A7 

E 6 

0B 


INC 

*0B 

8302 

20 

73 

00 

JSR 

*0073 

82A9 

C8 



I NY 


8305 

C9 

CC 


CMP 

#*CC 

82AA 

B9 

F5 

80 

LDA 

*80F5,Y 

8307 

90 

1A 


BCC 

*8323 

82AD 

10 

FA 


BPL 

*82A9 

8309 

C9 

EE 


CMP 

#*EE 

82AF 

B9 

F 6 

80 

LDA 

*80F6,Y 

830B 

B0 

16 


BCS 

*8323 

82B2 

D0 

E2 


BNE 

*8296 

830D 

20 

13 

83 

JSR 

*8313 

8284 

BD 

00 

02 

LDA 

*0200,X 

8310 

4C 

EA 

A7 

JMP 

*A7EA 

82B7 

10 

9B 


BPL 

*8254 

8313 

38 



SEC 


8289 

4C 

09 

A6 

JMP 

*A609 

8314 

E9 

CC 


SBC 

#*CC 

82BC 

10 

3E 


BPL 

*82FC 

8316 

0A 



ASL 


82BE 

C9 

FF 


CMP 

#*FF 

8317 

A8 



TAY 


82C0 

F0 

3A 


BEQ 

*82FC 

8318 

B9 

91 

80 

LDA 

*8091,Y 

82C2 

24 

0F 


BIT 

*0F 

831B 

48 



PHA 


82C4 

30 

36 


BMI 

*82FC 

831C 

B9 

90 

80 

LDA 

>- 

CD 

CK 

CD 

00 

* 

82C6 

C9 

CC 


CMP 

#*CC 

831F 

48 



PHA 


82C8 

90 

0E 


BCC 

*82D8 

8320 

4C 

73 

00 

JMP 

*0073 

82CA 

38 



SEC 


8323 

20 

79 

00 

JSR 

*0079 

82CB 

E9 

CB 


SBC 

#*CB 

8326 

4C 

E 7 

A7 

JMP 

*A7E7 

82CD 

AA 



TAX 


8329 

A9 

00 


LDA 

#*00 

82CE 

A9 

F6 


LDA 

#*F6 

832B 

85 

0D 


STA 

*0D 

82D0 

85 

22 


STA 

*22 

832D 

20 

73 

00 

JSR 

*0073 

82D2 

A9 

80 


LDA 

#*80 

8330 

C9 

F7 


CMP 

#*F7 

82D4 

85 

23 


STA 

*23 

8332 

90 

18 


BCC 

*834C 

82D6 

D0 

0C 


BNE 

*82E4 

8334 

C9 

F8 


CMP 

#*F8 

82D8 

38 



SEC 


8336 

B0 

14 


BCS 

*834C 

82D9 

E9 

7F 


SBC 

#*7F 

8338 

20 

3C 

83 

JSR 

*833C 

82DB 

AA 



TAX 


833B 

60 



RTS 


82DC 

A9 

9E 


LDA 

#*9E 

833C 

38 



SEC 


82DE 

85 

22 


STA 

*22 

833D 

E9 

F6 


SBC 

#*F6 

82E0 

A9 

A0 


LDA 

#*A0 

833F 

0A 



ASL 


82E2 

85 

23 


STA 

*23 

8340 

A8 



TAY 


82E4 

84 

49 


STY 

*49 

8341 

B9 

E5 

80 

LDA 

*80E5,Y 

82E6 

A0 

FF 


LDY 

#*FF 

8344 

48 



PHA 


82E8 

CA 



DEX 


8345 

B9 

E4 

80 

LDA 

*80E4,Y 

82E9 

F0 

07 


BEQ 

*82F2 

8348 

48 



PHA 


82EB 

C8 



I NY 


8349 

4C 

73 

00 

JMP 

*0073 

82EC 

B1 

22 


LDA 

<*22),Y 

834C 

20 

79 

00 

JSR 

*0079 

82EE 

10 

FB 


BPL 

*82EB 

834F 

4C 

8D 

AE 

JMP 

*AE8D 

82F0 

30 

F6 


BMI 

*82E8 

8352 

20 

F5 

81 

JSR 

*81F5 

82F2 

C8 



INY 


8355 

A5 

14 


LDA 

*14 

82F3 

B1 

22 


LDA 

<*22),Y 

8357 

29 

0F 


AND 

#*0F 

82F5 

30 

08 


BMI 

*82FF 

8359 

8D 

21 

D0 

STA 

*D021 



244 The complete utility 


835C 

20 

7? 

00 

JSR 

*007? 

835F 

F0 

IF 


BEQ 

*8380 

8361 

20 

FD 

AE 

JSR 

*AEFD 

8364 

20 

F5 

81 

JSR 

*81F5 

8367 

A5 

14 


LDA 

*14 

836? 

2? 

0F 


AND 

#*0F 

836B 

8D 

20 

D0 

STA 

*D020 

836E 

20 

79 

00 

JSR 

*007? 

8371 

F0 

00 


BEQ 

*8380 

8373 

20 

FD 

AE 

JSR 

*AEFD 

8376 

20 

F5 

81 

JSR 

*81F5 

837? 

A5 

14 


LDA 

*14 

837B 

2? 

0F 


AND 

#*0F 

837D 

8D 

86 

02 

STA 

*0286 

8388 

60 



RTS 


8381 

20 

FA 

AE 

JSR 

*AEFA 

8384 

20 

F5 

81 

JSR 

*81F5 

8387 

A5 

14 


LDA 

*14 

838? 

C? 

28 


CMP 

#*28 

838B 

?0 

03 


BCC 

*83?0 

838D 

20 

48 

B2 

JSR 

*B248 

83?0 

48 



pm 


83?1 

20 

FD 

AE 

JSR 

*AEFD 

83?4 

20 

F5 

81 

JSR 

*81F5 

83?7 

A6 

14 


LDX 

*14 

83?? 

E0 

1? 


CPX 

#*1? 

83?B 

B0 

F0 


BCS 

*838D 

83?D 

68 



PLA 


83?E 

A8 



TAY 


83?F 

18 



CLC 


83A0 

20 

F0 

FF 

JSR 

*FFF0 

83A3 

20 

73 

00 

JSR 

*0073 

83A6 

60 



RTS 


83A7 

20 

81 

83 

JSR 

*8381 

83AA 

4C 

A0 

PA 

JMP 

*AAA0 

83AD 

20 

81 

83 

JSR 

*8381 

83B0 

4C 

BF 

AB 

JMP 

*ABBF 

83B3 

20 

F5 

81 

JSR 

to 

LL 

•»-* 

CO 

& 

83B6 

20 

FD 

AE 

JSR 

*AEFD 

83B? 

20 

8A 

AD 

JSR 

*AD8A 

83BC 

A5 

66 


LDA 

*66 

83BE 

30 

14 


BMI 

*83D4 

83C0 

C? 

?1 


CMP 

#*?1 

83C2 

B0 

10 


BCS 

*83D4 

83C4 

20 

?B 

BC 

JSR 

*BC?B 

83C7 

A5 

65 


LDA 

*65 


83C? 

A6 

64 


LDX 

*64 

83CB 

A0 

00 


LDY 

#*00 

83CD 

?1 

14 


STA 

(*14),Y 

83CF 

C8 



I NY 


83D0 

8A 



TXA 


83D1 

?1 

14 


STA 

<*14> ,Y 

83D3 

60 



RTS 


83D4 

4C 

48 

B2 

JMP 

*B248 

83D7 

A5 

15 


LDA 

*15 

83D? 

48 



P1W 


83DA 

A5 

14 


LDA 

*14 

83DC 

48 



PHA 


83DD 

20 

FA 

AE 

JSR 

*AEFA 

83E0 

20 

F5 

81 

JSR 

*81F5 

83E3 

20 

F7 

AE 

JSR 

*AEF7 

83E6 

A0 

01 


LDY 

#*01 

83E8 

B1 

14 


LDA 

<*14> ,Y 

83EA 

AA 



TAX 


83EB 

88 



DEY 


83EC 

B1 

14 


LDA 

(*14) ,Y 

83EE 

A8 



TAY 


83EF 

68 



PLA 


83F0 

85 

14 


STA 

*14 

83F2 

68 



PLA 


83F3 

85 

15 


STA 

*15 

83F5 

8A 



TXA 


83F6 

20 

?1 

B3 

JSR 

*B3?1 

83F? 

20 

01 

84 

JSR 

*8401 

83FC 

68 



PLA 


83FD 

68 



PLA 


83FE 

4C 

8D 

AD 

JMP 

*AD8D 

8401 

A5 

66 


LDA 

*66 

8403 

10 

0A 


BPL 

*840F 

8405 

A0 

84 


LDY 

#*84 

8407 

A? 

10 


LDA 

#*10 

840? 

20 

8C 

BA 

JSR 

*BA8C 

840 C 

20 

6A 

B8 

JSR 

*B86A 

840F 

60 



RTS 


8410 

?1 

00 


STA 

CD 

CD 

•w 

8412 

00 



BRK 


8413 

00 



BRK 


8414 

00 



BRK 


8415 

A? 

FF 


LDA 

#*FF 

8417 

A0 

01 


LDY 

#*01 

841? 

?1 

2B 


STA 

<*2B) ,Y 

841B 

20 

33 

A5 

JSR 

*A533 
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841E 

A5 

22 


LDA $22 

8485 

38 



SEC 


8428 

18 



CLC 

8486 

28 

49 

BC 

JSR 

$BC49 

8421 

69 

82 


ADC #$82 

8489 

28 

DF 

BD 

JSR 

$BDDF 

8423 

85 

2D 


STA $2D 

848C 

28 

87 

B4 

JSR 

$B487 

8425 

A5 

23 


LDA $23 

848F 

28 

A6 

B6 

JSR 

$B6A6 

8427 

69 

88 


ADC #$88 

8492 

A2 

88 


LDX 

#$80 

8429 

85 

2E 


STA $2E 

8494 

BD 

88 

81 

LDA 

$010 0 | X 

842B 

4C 

68 

A6 

JMP $A668 

8497 

9D 

88 

82 

STA 

$0200,X 

842E 

28 

F5 

81 

JSR $81F5 

849A 

F8 

83 


BEQ 

$849F 

8431 

28 

F0 

AE 

JSR $AEFD 

849C 

E8 



I NX 


8434 

A5 

14 


LDA $14 

849D 

D8 

F5 


BNE 

$8494 

8436 

85 

FB 


STA $FB 

849F 

68 



RTS 


8438 

A5 

15 


LDA $15 

84A8 

F8 

47 


BEQ 

$84E9 

843A 

85 

FC 


STA $FC 

84A2 

B8 

45 


BCS 

$84E9 

843C 

28 

F5 

81 

JSR $81F5 

84A4 

28 

F5 

81 

JSR 

$81F5 

843F 

A5 

14 


LDA $14 

84A7 

A9 

28 


LDA 

#$20 

8441 

85 

FD 


STA $FD 

84A9 

28 

D2 

FF 

JSR 

$FFD2 

8443 

A9 

40 


LDA #$4D 

84AC 

A8 

82 


LDY 

#$02 

8445 

8D 

82 

83 

STA $8382 

84AE 

28 

D1 

84 

JSR 

$84D1 

8448 

A9 

84 


LDA #$84 

84B1 

88 



DEY 


844A 

80 

83 

83 

STA $8383 

84B2 

D8 

FA 


BNE 

$84AE 

844D 

AD 

88 

82 

LDA $8288 

84B4 

A4 

14 


LDY 

$14 

8458 

F8 

28 


BEQ $8472 

84B6 

84 

15 


STY 

$15 

8452 

A6 

FB 


LDX $FB 

84B8 

A8 

82 


LDY 

#$82 

8454 

A5 

FC 


LDA $FC 

84BA 

28 

D1 

84 

JSR 

$84D1 

8456 

28 

7F 

84 

JSR $847F 

84BD 

88 



DEY 


8459 

86 

C6 


STX $C6 

84BE 

D8 

FA 


BNE 

$84BA 

845B 

BD 

88 

82 

LDA $8288,X 

84C8 

28 

79 

08 

JSR 

$0079 

845E 

90 

77 

82 

STA $0277,X 

84C3 

C9 

2C 


CMP 

#$2C 

8461 

CA 



DEX 

84C5 

D8 

89 


BNE 

$8400 

8462 

18 

F7 


BPL $845B 

84C7 

28 

D2 

FF 

JSR 

$FFD2 

8464 

18 



CLC 

84CA 

28 

73 

00 

JSR 

$0073 

8465 

A5 

FB 


LDA $FB 

84CD 

4C 

A8 

84 

JMP 

$84A8 

8467 

65 

FO 


ADC $FD 

84D8 

68 



RTS 


8469 

85 

FB 


STA $FB 

84D1 

A2 

04 


LDX 

#$04 

846B 

98 

82 


BCC $846F 

84D3 

A9 

08 


LDA 

#$00 

846D 

E6 

FC 


INC $FC 

84D5 

86 

15 


ASL 

$15 

846F 

4C 

83 

A4 

JMP $A483 

84D7 

2A 



ROL 


8472 

A9 

83 


LDA #$83 

84D8 

CA 



DEX 


8474 

8D 

82 

83 

STA $8382 

84D9 

D8 

FA 


BNE 

$84D5 

8477 

A9 

A4 


LDA #$A4 

84DB 

C9 

8A 


CMP 

#$0A 

8479 

80 

83 

83 

STA $8383 

84DD 

98 

84 


BCC 

$84E3 

847C 

6C 

82 

83 

JMP ($8382) 

84DF 

18 



CLC 


847F 

86 

63 


STX $63 

84E8 

69 

37 


ADC 

#$37 

8481 

85 

62 


STA $62 

84E2 

2C 

69 

38 

BIT 

$3069 

8483 

A2 

98 


LDX #$98 

84E5 

28 

D2 

FF 

JSR 

$FFD2 




246 

The complete utility 







84E8 

60 



RTS 

8550 

85 

62 


STA 

$62 

84E9 

4C 

08 

AF 

JMP $AF08 

8552 

20 

7C 

85 

JSR 

$857C 

84EC 

F0 

46 


BEQ $8534 

8555 

A8 



TAY 


84EE 

B0 

44 


BCS $8534 

8556 

68 



PLA 


84F8 

20 

F5 

81 

JSR $81F5 

8557 

20 

AD 

85 

JSR 

$85AD 

84F3 

A9 

20 


LDA #$20 

855A 

20 

73 

00 

JSR 

$0073 

84F5 

20 

D2 

FF 

JSR $FFD2 

855D 

C9 

2C 


CMP 

#$2C 

84F8 

A5 

15 


LDA $15 

855F 

F0 

10 


BEQ 

$8571 

84FA 

F0 

16 


BEQ $8512 

8561 

60 



RTS 


84FC 

A2 

08 


LDX #$08 

8562 

68 



PLA 


84FE 

06 

15 


ASL $15 

8563 

A8 



TAY 


8508 

B0 

03 


BCS $8505 

8564 

A9 

00 


LDA 

#$00 

8582 

A9 

30 


LDA #$30 

8566 

20 

AD 

85 

JSR 

* 

CO 

8584 

2C 

A9 

31 

BIT $31A9 

8569 

60 



RTS 


8587 

20 

D2 

FF 

JSR $FFD2 

856A 

68 



PLA 


850A 

CA 



DEX 

856B 

A8 



TAY 


850 B 

D0 

FI 


BNE $84FE 

856C 

A9 

00 


LDA 

#$00 

850D 

A9 

20 


LDA #$20 

856E 

20 

AD 

85 

JSR 

$85AD 

858 F 

20 

D2 

FF 

JSR $FFD2 

8571 

A9 

2C 


LDA 

#$2C 

8512 

A2 

08 


LDX #$08 

8573 

20 

D2 

FF 

JSR 

$FFD2 

8514 

06 

14 


ASL $14 

8576 

20 

73 

00 

JSR 

$0073 

8516 

B0 

03 


BCS $851B 

8579 

4C 

37 

85 

JMP 

$8537 

8518 

A9 

30 


LDA #$30 

857C 

A0 

01 


LDY 

#$01 

851A 

2C 

A9 

31 

BIT $31A9 

857E 

B9 

62 

00 

LDA 

$0062,Y 

851D 

20 

D2 

FF 

JSR $FFD2 

8581 

C9 

30 


CMP 

#$30 

8528 

CA 



DEX 

8583 

98 

25 


BCC 

$85AA 

8521 

D0 

FI 


BNE $8514 

8585 

C9 

47 


CMP 

#$47 

8523 

20 

79 

00 

JSR $0079 

8587 

B0 

21 


BCS 

$85AA 

8526 

C9 

2C 


CMP #$2C 

8589 

C9 

3A 


CMP 

#$3A 

8528 

D0 

09 


BNE $8533 

858B 

90 

08 


BCC 

$8595 

852A 

20 

D2 

FF 

JSR $FFD2 

858D 

C9 

41 


CMP 

#$41 

352D 

20 

73 

00 

JSR $0073 

858F 

90 

19 


BCC 

3 

00 

1* 

8530 

4C 

EC 

84 

JMP $84EC 

8591 

E9 

37 


SBC 

#$37 

8533 

60 



RTS 

8593 

D0 

03 


BNE 

00 

Os 

in 

00 

* 

8534 

4C 

08 

AF 

JMP $AF08 

8595 

38 



SEC 


8537 

85 

63 


STA $63 

8596 

E9 

30 


SBC 

#$30 

8539 

20 

73 

00 

JSR $0073 

8598 

99 

14 

00 

STA 

$0014,Y 

853C 

85 

62 


STA $62 

859B 

88 



DEY 


853E 

20 

7C 

85 

JSR $857C 

859C 

10 

E0 


BPL 

IjJ 

in 

00 

8541 

48 



PHA 

859E 

A0 

04 


LDY 

#$04 

8542 

20 

73 

00 

JSR $0073 

85A0 

06 

15 


ASL 

$15 

8545 

F0 

IB 


BEQ $8562 

85A2 

88 



DEY 


8547 

C9 

2C 


CMP #$2C 

85A3 

D0 

FB 


BNE 

$85A0 

8549 

F0 

IF 


BEQ $856A 

85A5 

A5 

14 


LDA 

$14 

854B 

85 

63 


STA $63 

85A7 

05 

15 


ORA 

$15 

854D 

20 

73 

00 

JSR $0073 

85A9 

60 



RTS 
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85AA 

40 

08 

AF 

JMP 

♦AF08 

8611 

D0 

03 


BNE 

* 

00 

CK 

o* 

85AD 

20 

91 

B3 

JSR 

♦B391 

8613 

40 

ID 

A8 

JMP 

♦A81D 

85B0 

20 

01 

84 

JSR 

♦8401 

8616 

20 

F5 

81 

JSR 

♦81F5 

85B3 

20 

8D 

AD 

JSR 

♦AD8D 

8619 

20 

13 

A6 

JSR 

♦A613 

85B6 

20 

DD 

BD 

JSR 

♦BDDD 

8610 

B0 

05 


BCS 

♦8623 

85B? 

20 

87 

B4 

JSR 

♦B487 

861E 

A2 

15 


LDX 

#♦15 

85BC 

40 

21 

AB 

JMP 

♦AB21 

8620 

40 

37 

A4 

JMP 

♦A437 

85BF 

A5 

7A 


LDA 

♦7A 

8623 

38 



SEC 


85C1 

D0 

02 


BNE 

♦8505 

8624 

A5 

5F 


LDA 

♦5F 

85C3 

06 

7B 


DEC 

♦7B 

8626 

E9 

01 


SBC 

#♦01 

8505 

06 

7A 


DEC 

♦7A 

8628 

85 

41 


STA 

♦41 

8507 

A2 

08 


LDX 

#♦08 

86 2A 

A5 

60 


LDA 

♦60 

8509 

20 

73 

00 

JSR 

♦0073 

8620 

E9 

00 


SBC 

#♦00 

85CC 

90 

03 


BCC 

♦85D1 

862E 

85 

42 


STA 

♦42 

85CE 

40 

08 

AF 

JMP 

♦AF08 

8630 

60 



RTS 


85D1 

09 

32 


CMP 

#♦32 

8631 

A9 

FF 


LDA 

#^FF 

85D3 

B0 

F9 


BCS 

♦85CE 

8633 

85 

4A 


STA 

♦4A 

85D5 

6A 



ROR 


8635 

20 

8A 

A3 

JSR 

♦A38A 

85D6 

26 

14 


ROL 

♦ 14 

8638 

9A 



TXS 


85D8 

0A 



DEX 


8639 

09 

8D 


CMP 

#♦80 

85D9 

D0 

EE 


BNE 

♦8509 

863B 

F0 

05 


BEQ 

♦8642 

85DB 

A4 

14 


LDY 

♦ 14 

863D 

A2 

16 


LDX 

#♦16 

85DD 

A9 

00 


LDA 

#♦00 

863F 

40 

37 

A4 

JMP 

♦A437 

85DF 

20 

AD 

85 

JSR 

♦85AD 

8642 

E8 



I NX 


85E2 

A9 

2F 


LDA 

#^2F 

8643 

E8 



I NX 


85E4 

20 

D2 

FF 

JSR 

♦FFD2 

8644 

E8 



I NX 


85E7 

A5 

14 


LDA 

♦14 

8645 

E8 



I NX 


85E9 

A0 

00 


LDY 

#♦00 

8646 

E8 



I NX 


85EB 

20 

AD 

85 

JSR 

♦85AD 

8647 

9A 



TXS 


85EE 

20 

73 

00 

JSR 

♦0073 

8648 

60 



RTS 


85F1 

09 

20 


CMP 

#♦20 

8649 

60 



RTS 


85F3 

D0 

06 


BNE 

♦85FB 

864A 

40 

08 

AF 

JMP 

♦AF08 

85F5 

20 

D2 

FF 

JSR 

♦FFD2 

864D 

AD 

5B 

80 

LDA 

♦80 5B 

85F8 

40 

07 

85 

JMP 

♦8507 

8650 

09 

87 


CMP 

#♦87 

85FB 

60 



RTS 


8652 

F0 

0D 


BEQ 

♦8661 

85FC 

A5 

9D 


LDA 

♦9D 

8654 

A9 

87 


LDA 

#♦87 

85FE 

D0 

01 


BNE 

♦8601 

8656 

8D 

5B 

80 

STA 

♦80 5B 

8600 

60 



RTS 


8659 

A9 

22 


LDA 

#♦22 

8601 

20 

26 

B5 

JSR 

♦B526 

865B 

8D 

56 

80 

STA 

♦8056 

8604 

38 



SEC 


865E 

20 

54 

80 

JSR 

♦8054 

8605 

A5 

33 


LDA 

♦33 

8661 

20 

79 

00 

JSR 

♦8079 

8607 

E5 

31 


SBC 

♦31 

8664 

F0 

42 


BEQ 

♦86A8 

8609 

A8 



TAY 

♦34 

8666 

20 

F5 

81 

JSR 

♦81F5 

860A 

A5 

34 


LDA 

8669 

20 

FD 

AE 

JSR 

♦AEFD 

8600 

E5 

32 


SBC 

♦32 

8660 

A5 

14 


LDA 

♦14 

860 E 

40 

AD 

85 

JMP 

♦85AD 

866E 

F0 

IE 


BEQ 

♦868E 
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8670 

C9 

11 


CMP **11 

86C7 

90 

F4 


BCC 

*86BD 

8672 

B0 

1A 


BCS *868E 

86C? 

A9 

31 


LDA 

**31 

8674 

C6 

14 


DEC *14 

86CB 

85 

22 


STA 

*22 

8676 

A5 

14 


LDA *14 

86CD 

A? 

30 


LDA 

**30 

8678 

8A 



ASL 

86CF 

85 

23 


STA 

*23 

867? 

8A 



ASL 

86D1 

20 

DE 

86 

JSR 

*86DE 

867A 

8A 



ASL 

86D4 

E6 

23 


INC 

*23 

867B 

0A 



ASL 

86D6 

E6 

5F 


INC 

*5F 

867C 

A8 



TAY 

86D8 

E8 



I NX 


867D 

A? 

A1 


LDA **A1 

86D? 

E0 

11 


CPX 

**11 

867F 

85 

15 


STA *15 

86DB 

90 

F4 


BCC 

*86D1 

8681 

A? 

00 


LDA **80 

86DD 

60 



RTS 


8683 

85 

14 


STA *14 

86DE 

A0 

05 


LDY 

#*05 

8685 

A6 

0A 


LDX *8A 

86E0 

B? 

1C 

87 

LDA 

*871C,Y 

8687 

28 

79 

00 

JSR *8079 

86E3 

20 

D2 

FF 

JSR 

*FFD2 

868A 

C? 

22 


CMP #*22 

86E6 

88 



DEY 


868C 

F0 

83 


BEQ *8691 

86E7 

D0 

F7 


BNE 

*86E0 

868E 

4C 

88 

AF 

JMP *AF08 

86E? 

A5 

22 


LDA 

*22 

8691 

28 

73 

00 

JSR *0073 

86EB 

20 

D2 

FF 

JSR 

*FFD2 

8694 

F0 

0A 


BEQ *86A0 

86EE 

A5 

23 


LDA 

*23 

8696 

C? 

22 


CMP #*22 

86F0 

20 

D2 

FF 

JSR 

*FFD2 

8698 

F8 

86 


BEQ *86A0 

86F3 

A? 

2C 


LDA 

#*2C 

869A 

91 

14 


STA <*14),Y 

86F5 

20 

D2 

FF 

JSR 

*FFD2 

869C 

C8 



I NY 

86F8 

A? 

22 


LDA 

#*22 

869D 

CA 



DEX 

86FA 

20 

D2 

FF 

JSR 

*FFD2 

869E 

D0 

FI 


BNE *8691 

86FD 

A5 

5F 


LDA 

*5F 

86A8 

A9 

00 


LDA **00 

86FF 

0A 



ASL 


86A2 

91 

14 


STA <*14),Y 

8708 

0A 



ASL 


86A4 

20 

73 

00 

JSR *0073 

8701 

0A 



ASL 


86A7 

60 



RTS 

8702 

0A 



ASL 


86A8 

A2 

00 


LDX **00 

8703 

A8 



TAY 


86AA 

86 

5F 


STX *5F 

8704 

20 

FB 

81 

JSR 

*81 FB 

86AC 

E8 



I NX 

8707 

B1 

14 


LDA 

<*14),Y 

86A0 

A9 

20 


LDA **20 

870? 

48 



PHA 


86AF 

85 

22 


STA *22 

870A 

20 

02 

82 

JSR 

*8202 

86B1 

A? 

31 


LDA **31 

870D 

68 



PLA 


86B3 

85 

23 


STA *23 

870E 

F0 

06 


BEQ 

*8716 

86B5 

A9 

00 


LDA **80 

8710 

20 

D2 

FF 

JSR 

*FFD2 

86B7 

85 

14 


STA *14 

8713 

C8 



I NY 


86B? 

A? 

A1 


LDA #*A1 

8714 

D0 

EE 


BNE 

*8704 

86BB 

85 

15 


STA *15 

8716 

A? 

22 


LDA 

#*22 

86BD 

20 

DE 

86 

JSR *86DE 

8718 

20 

D2 

FF 

JSR 

*FFD2 

86C0 

E6 

23 


INC *23 

871B 

60 



RTS 


86C2 

E6 

5F 


INC *5F 

871C 

20 

5? 

45 

JSR 

*455? 

86C4 

E8 



I NX 

871F 

4B 



??? 


86C5 

E0 

0A 


CPX **0A 

8720 

20 

0D 

A4 

JSR 

4A40D 
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8723 

CB 


??? 


8781 

68 



PLA 


8724 

C8 

03 

CRY 

#$03 

8782 

F0 

0D 


BEQ 

$8791 

8726 

90 

04 

BCC 

$872C 

8784 

C9 

5F 


CMP 

#$5F 

8728 

C0 

07 

CRY 

#$07 

8786 

D0 

02 


BNE 

$878A 

872A 

90 

03 

BCC 

$872F 

8788 

A9 

0D 


LDA 

#$0D 

872C 

4C 

48 EB 

JMP 

$EB48 

878A 

9D 

77 

02 

STA 

$0277,X 

872F 

AD 

8D 02 

LDA 

$028D 

878D 

E8 



I NX 


8732 

C4 

C5 

CPY 

$C5 

878E 

C8 



INY 


8734 

D0 

05 

BNE 

$873B 

878F 

D0 

E7 


BNE 

$8778 

8736 

CD 

8E 02 

CMP 

$028E 

8791 

86 

C6 


STX 

$C6 

8739 

F0 

FI 

BEQ 

$872C 

8793 

A9 

7F 


LDA 

#$7F 

873B 

84 

C5 

STY 

$C5 

8795 

8D 

00 

DC 

STA 

$DC00 

873D 

8D 

8E 02 

STA 

$028E 

8798 

60 



RTS 


8740 

C0 

04 

CPY 

#$04 

8799 

A9 

48 


LDA 

#$48 

8742 

F0 

0B 

BEQ 

$874F 

879B 

8D 

56 

80 

STA 

$8056 

8744 

C0 

05 

CPY 

#$05 

879E 

A9 

EB 


LDA 

#$EB 

8746 

F0 

0A 

BEQ 

$8752 

87A0 

8D 

5B 

80 

STA 

$80 5B 

8748 

C0 

06 

CPY 

#$06 

87A3 

20 

54 

80 

JSR 

$8054 

874A 

F0 

09 

BEQ 

$8755 

87A6 

60 



RTS 


874C 

A0 

07 

LDY 

#$07 

87A7 

20 

5E 

88 

JSR 

$885E 

874E 

2C 

A0 01 

BIT 

$01A0 

87AA 

86 

2B 


STX 

$2B 

8751 

2C 

A0 03 

BIT 

$03A0 

87AC 

84 

2C 


STY 

$2C 

8754 

2C 

A0 05 

BIT 

$05A0 

87AE 

A0 

00 


LDY 

#$00 

8757 

C9 

02 

CMP 

#$02 

87B0 

98 



TYA 


8759 

90 

07 

BCC 

$8762 

87B1 

91 

2B 


STA 

<$2B),Y 

875B 

F0 

03 

BEQ 

$8760 

87B3 

20 

10 

88 

JSR 

$8810 

875D 

A9 

09 

LDA 

#$09 

87B6 

86 

2D 


STX 

$2D 

875F 

2C 

A9 08 

BIT 

$08A9 

87B8 

84 

2E 


STY 

$2E 

8762 

84 

BB 

STY 

$BB 

87BA 

20 

33 

A5 

JSR 

$A533 

8764 

C6 

BB 

DEC 

$BB 

87BD 

20 

4D 

88 

JSR 

$884D 

8766 

18 


CLC 


87C0 

A9 

F9 


LDA 

#$F9 

8767 

65 

BB 

ADC 

$BB 

87C2 

A2 

87 


LDX 

#$87 

8769 

0A 


ASL 


87C4 

8D 

02 

03 

STA 

$0302 

876A 

OA 


ASL 


87C7 

8E 

03 

03 

STX 

$0303 

876B 

0A 


ASL 


87CA 

A9 

01 


LDA 

#$01 

876C 

0A 


ASL 


87CC 

85 

7B 


STA 

$7B 

876D 

A0 

A1 

LDY 

#$A1 

87CE 

A9 

FF 


LDA 

#$FF 

876F 

84 

15 

STY 

$15 

87D0 

85 

7A 


STA 

$7A 

8771 

A0 

00 

LDY 

#$00 

87D2 

A0 

00 


LDY 

#$00 

8773 

84 

14 

STY 

$14 

87D4 

B1 

FB 


LDA 

($FB),Y 

8775 

A8 


TAY 


87D6 

85 

FD 


STA 

$FD 

8776 

A2 

00 

LDX 

#$00 

87D8 

C8 



INY 


8778 

20 

FB 81 

JSR 

$81 FB 

87D9 

B1 

FB 


LDA 

($FB),Y 

877B 

B1 

14 

LDA 

($14),Y 

87DB 

85 

FE 


STA 

$FE 

877D 

48 


PHA 


87DD 

F0 

24 


BEQ 

$8803 

877E 

20 

02 82 

JSR 

$8202 

87DF 

C8 



INY 
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87E0 B1 FB 
87E2 85 14 
87E4 C8 
87E5 B1 FB 
87E7 85 15 
87E? A2 04 
87EB E8 
87EC C8 
87ED B1 FB 
87EF 9D FB 01 
87F2 D0 F7 
87F4 8A 
87F5 A8 
87F6 20 A2 A4 
87F9 A5 FD 
87FB A6 FE 
87FD 85 FB 
87FF 86 FC 
8801 D0 C7 
8803 A? 83 
8805 A2 A4 
8807 8D 02 03 
880A 8E 03 63 
880D 20 74 A4 
8810 20 D4 El 
8813 A? 00 
8815 85 B9 
8817 A6 2B 

8819 A4 2C 
881B 20 D5 FF 
881E B0 10 

8820 20 B7 FF 
8823 29 BF 
8825 F0 08 
8827 20 38 88 
882A A2 ID 
882C 4C 37 A4 
882F 60 

8830 48 

8831 20 38 88 

8834 68 

8835 4C F9 E0 
8838 A5 FB 
883A 38 

883B E9 02 
883D 85 14 


LDA ($FB),Y 
STA $14 
I NY 

LDA <$FB) ,Y 
STA $15 
LDX #$04 
I NX 
I NY 

LDA ($FB),Y 
STA $01FB,X 
BNE $87EB 
TXA 
TAY 

JSR $A4A2 
LDA $FD 
LDX $FE 
STA $FB 
STX $FC 
BNE $87CA 
LDA #$83 
LDX #$A4 
STA $0302 
STX $0303 
JSR $A474 
JSR $E1D4 
LDA #$00 
STA $B9 
LDX $2B 
LDY $2C 
JSR $FFD5 
BCS $8830 
JSR $FFB7 
AND #$BF 
BEQ $882F 
JSR $8838 
LDX #$1D 
JMP $A437 
RTS 
PHA 

JSR $8838 
PLA 

JMP $E0F9 
LDA $FB 
SEC 

SBC #$02 
STA $14 


883F A5 FC 
8841 E9 00 
8843 85 FC 
8845 A9 00 

8847 A8 

8848 91 14 
884A C8 
884B 91 14 
884D A5 FD 
884F A6 FE 
8851 85 2B 
8853 86 2C 
8855 A5 FB 
8857 A6 FC 

8859 85 2D 
885B 86 2E 
885D 60 
885E A5 2B 

8860 85 FD 
8862 A5 2C 
8864 85 FE 
8866 A6 2D 
8868 A4 2E 
886A 86 FB 
886C 84 FC 
886E 60 

886F 20 5E 88 

8872 8A 

8873 38 

8874 E9 02 
8876 85 2B 

8878 98 

8879 E9 00 
887B 85 2C 
887D 20 10 88 

8880 86 FB 
8882 84 FC 
8884 20 4D 88 
8887 20 33 A5 
888A 60 

888B 86 C2 
888D A5 3E 
8B8F 38 
8898 E5 C2 
8892 85 BB 
8894 18 


LDA $FC 
SBC #$00 
STA $FC 
LDA #$00 
TAY 

STA ($14) ,Y 
I NY 

STA ($14) ,Y 
LDA $FD 
LDX $FE 
STA $2B 
STX $2C 
LDA $FB 
LDX $FC 
STA $2D 
STX $2E 
RTS 

LDA $2B 
STA $FD 
LDA $2C 
STA $FE 
LDX $2D 
LDY $2E 
STX $FB 
STY $FC 
RTS 

JSR $885E 

TXA 

SEC 

SBC #$02 
STA $2B 
TYA 

SBC #$00 
STA $2C 
JSR $8810 
STX $FB 
STY $FC 
JSR $884D 
JSR $A533 
RTS 

STX $C2 
LDA $3E 
SEC 

SBC $C2 
STA $BB 
CLC 
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8895 

A5 

FB 

LDA 

♦FB 

88E6 

>0 

LU 

60 

INC 

* 

CD 

8897 

65 

49 

ADC 

♦49 

88E8 

CA 


DEX 


8899 

85 

5F 

STA 

♦5F 

88E9 

D0 

F2 

BNE 

♦88DD 

389B 

A5 

FC 

LDA 

♦FC 

88EB 

38 


SEC 


889D 

69 

00 

ADC 

#♦00 

88EC 

A5 

2D 

LDA 

♦2D 

889F 

85 

60 

STA 

♦60 

88EE 

E5 

BB 

SBC 

♦BB 

88A1 

A5 

5F 

LDA 

♦5F 

88F0 

85 

2D 

STA 

♦2D 

88A3 

65 

BB 

ADC 

♦BB 

88F2 

B0 

03 

BCS 

♦88F7 

88A5 

85 

5A 

STA 

♦5A 

88F4 

C6 

2E 

DEC 

♦2E 

88A7 

A5 

60 

LDA 

♦60 

88F6 

38 


SEC 


88A9 

69 

00 

ADC 

#♦00 

88F7 

A0 

00 

LDY 

#♦00 

88AB 

85 

5B 

STA 

♦5B 

88F9 

A5 

FD 

LDA 

♦FD 

88AD 

A5 

2D 

LDA 

♦2D 

88FB 

E5 

BB 

SBC 

♦BB 

88AF 

38 


SEC 


88FD 

85 

FD 

STA 

♦FD 

88B8 

E5 

5A 

SBC 

♦5A 

88FF 

91 

FB 

STA 

(♦FB),Y 

88B2 

85 

58 

STA 

♦58 

8901 

85 

57 

STA 

♦57 

88B4 

A8 


TAY 


8903 

A5 

FE 

LDA 

♦FE 

88B5 

A5 

2E 

LDA 

♦2E 

8905 

E9 

00 

SBC 

#♦00 

88B7 

E5 

5B 

SBC 

♦5B 

8907 

C8 


I NY 


88B9 

AA 


TAX 


8908 

85 

FE 

STA 

♦FE 

88BA 

E8 


I NX 


890A 

85 

58 

STA 

♦58 

88BB 

98 


TYA 


890C 

91 

FB 

STA 

(♦FB),Y 

88BC 

F0 

IF 

BEQ 

& 

00 

00 

890 E 

88 


DEY 


88BE 

A5 

5A 

LDA 

♦5A 

890 F 

B1 

57 

LDA 

> 

>«~s 

r- 

in 

* 

•w 

88C0 

18 


CLC 


8911 

85 

B9 

STA 

♦B9 

88C1 

65 

58 

ADC 

♦58 

8913 

C8 


I NY 


88C3 

85 

5A 

STA 

♦5A 

8914 

B1 

57 

LDA 

(♦57),Y 

88C5 

90 

03 

BCC 

♦88CA 

8916 

85 

BA 

STA 

♦BA 

88C7 

E6 

5B 

INC 

♦5B 

8918 

F0 

18 

BEQ 

♦8932 

88C9 

18 


CLC 


891A 

88 


DEY 


88CA 

A5 

5F 

LDA 

♦5F 

891B 

38 


SEC 


88CC 

65 

58 

ADC 

♦58 

891C 

A5 

B9 

LDA 

♦B9 

88CE 

85 

5F 

STA 

♦5F 

891E 

E5 

BB 

SBC 

♦BB 

88D0 

90 

02 

BCC 

♦88D4 

8920 

AA 


TAX 


88D2 

E6 

60 

INC 

♦60 

8921 

91 

57 

STA 

(♦57),Y 

88D4 

98 


TYA 


8923 

A5 

BA 

LDA 

♦BA 

88D5 

49 

FF 

EOR 

#^FF 

8925 

E9 

CD 

CD 

SBC 

CD 

CD 

t 

88D7 

A8 


TAY 


8927 

C8 


I NY 


88D8 

C8 


I NY 


8928 

91 

57 

STA 

(♦57),Y 

88D9 

C6 

5B 

DEC 

♦5B 

892A 

85 

58 

STA 

♦58 

88DB 

C6 

60 

DEC 

♦60 

892C 

8A 


TXA 


88DD 

B1 

5A 

LDA 

(♦5A),Y 

892D 

85 

57 

STA 

♦57 

88DF 

91 

5F 

STA 

(♦5F),Y 

892F 

4C 

0E 89 

JMP 

♦890E 

88E1 

C8 


I NY 


8932 

60 


RTS 


88E2 

D0 

F9 

GNE 

♦88DD 

8933 

8A 


TXA 


88E4 

E6 

5B 

INC 

♦5B 

8934 

38 


SEC 
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8935 

E5 

3E 

SBC 

$3E 

8937 

85 

BB 

STA 

$BB 

8939 

18 


CLC 


893A 

A5 

49 

LDA 

$49 

893C 

65 

BB 

ADC 

$BB 

893E 

B0 

04 

BCS 

$8944 

8949 

C9 

FE 

CMP 

#$FE 

8942 

90 

05 

BCC 

$8949 

8944 

A2 

17 

LDX 

#$17 

8946 

4C 

37 A4 

JMP 

$A437 

8949 

A5 

2D 

LDA 

$2D 

894B 

65 

BB 

ADC 

$BB 

894D 

AA 


TAX 


894E 

A5 

2E 

LDA 

$2E 

8950 

69 

00 

ADC 

#$00 

8952 

C5 

38 

CMP 

$38 

8954 

D0 

07 

BNE 

$895D 

8956 

E4 

37 

CPX 

$37 

8958 

90 

03 

BCC 

$895D 

895A 

4C 

35 A4 

JMP 

$A435 

895D 

18 


CLC 


895E 

A5 

2D 

LDA 

$2D 

8960 

85 

5A 

STA 

$5A 

8962 

65 

BB 

ADC 

$BB 

8964 

85 

58 

STA 

$58 

8966 

A5 

2E 

LDA 

$2E 

8968 

85 

5B 

STA 

$5B 

896A 

69 

00 

ADC 

#$00 

896C 

85 

59 

STA 

$59 

896E 

A5 

FB 

LDA 

$FB 

8970 

65 

49 

ADC 

$49 

8972 

85 

5F 

STA 

$5F 

8974 

A5 

FC 

LDA 

$FC 

8976 

69 

00 

ADC 

#$00 

8978 

85 

60 

STA 

$60 

897A 

20 

BF A3 

JSR 

$A3BF 

897D 

18 


CLC 


897E 

A0 

00 

LDY 

#$00 

8980 

A5 

2D 

LDA 

$2D 

8982 

65 

BB 

ADC 

$BB 

8984 

85 

2D 

STA 

$2D 

8986 

90 

03 

BCC 

$898B 

8988 

E6 

2E 

INC 

$2E 

898A 

18 


CLC 


898B 

A5 

FD 

LDA 

$FD 

898D 

65 

BB 

ADC 

$BB 


898F 

85 

FD 

STA 

$FD 

8991 

85 

57 

STA 

$57 

8993 

91 

FB 

STA 

<$FB),Y 

8995 

A5 

FE 

LDA 

$FE 

8997 

69 

00 

ADC 

#$00 

8999 

C8 


I NY 


899A 

85 

FE 

STA 

$FE 

899C 

85 

58 

STA 

$58 

899E 

91 

FB 

STA 

($FB),Y 

89A0 

88 


DEY 


89A1 

B1 

57 

LDA 

<$57),Y 

89A3 

85 

B9 

STA 

$B9 

89A5 

C8 


I NY 


89A6 

81 

57 

LDA 

($57),Y 

89A8 

85 

BA 

STA 

$BA 

89AA 

F0 

18 

BEQ 

$89C4 

89AC 

88 


DEY 


89AD 

18 


CLC 


89AE 

A5 

B9 

LDA 

$B9 

89B0 

65 

BB 

ADC 

$BB 

89B2 

AA 


TAX 


89B3 

91 

57 

STA 

($57),Y 

89B5 

A5 

BA 

LDA 

$BA 

89B7 

69 

CD 

CD 

ADC 

#$00 

89B9 

C8 


I NY 


89BA 

91 

57 

STA 

($57),Y 

89BC 

85 

58 

STA 

$58 

89BE 

8A 


TXA 


89BF 

85 

57 

STA 

$57 

89C1 

4C 

A0 89 

JMP 

$89A0 

89C4 

60 


RTS 


89C5 

20 

F5 81 

JSR 

$81F5 

89C8 

20 

FD AE 

JSR 

$AEFD 

89CB 

A5 

14 

LDA 

$14 

89CD 

85 

C9 

STA 

$C9 

89CF 

A5 

15 

LDA 

$15 

89D1 

85 

CA 

STA 

$CA 

89D3 

20 

F5 81 

JSR 

$81F5 

89D6 

20 

FD AE 

JSR 

$AEFD 

89D9 

A5 

14 

LDA 

$14 

89DB 

85 

BC 

STA 

$BC 

89DD 

20 

F5 81 

JSR 

$81F5 

89E0 

A5 

14 

LDA 

$14 

89E2 

85 

BD 

STA 

$BD 

89E4 

A5 

15 

LDA 

$15 

89E6 

85 

BE 

STA 

$BE 
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89E8 

A5 

2B 

LDA 

$2B 


8A42 

08 


I NY 


89EA 

85 

FB 

STA 

$FB 


8A43 

B1 

FB 

LDA 

($FB),Y 

89EC 

A5 

2C 

LDA 

$2C 


8A45 

F0 

ED 

BEQ 

$8A34 

89EE 

85 

FC 

STA 

$FC 


8A47 

09 

22 

CMP 

#$22 

89F0 

A5 

CA 

LDA 

$CA 


8A49 

D0 

F7 

BNE 

$8A42 

89F2 

D0 

0F 

BNE 

$8A03 


8A4B 

F0 

E2 

BEQ 

$8A2F 

89F4 

A5 

09 

LDA 

$09 


8A4D 

09 

8F 

CMP 

#$8F 

89F6 

D0 

0B 

BNE 

*8A03 


8A4F 

F0 

E3 

BEQ 

$8A34 

89F8 

A0 

02 

LDY 

#$02 


8A51 

09 

83 

CMP 

#$83 

89FA 

B1 

FB 

LDA 

($FB) 

.Y 

8A53 

F0 

DF 

BEQ 

$8A34 

89FC 

85 

09 

STA 

$09 


8A55 

09 

A7 

CMP 

#$A7 

89FE 

C8 


I NY 



8A57 

F0 

21 

BEQ 

$8A7A 

89FF 

B1 

FB 

LDA 

<$FB) 

jY 

8A59 

09 

8A 

CMP 

#$8A 

8A01 

85 

CA 

STA 

$CA 


8A5B 

F0 

ID 

BEQ 

$8A7A 

8A03 

A5 

09 

LDA 

$09 


8A5D 

09 

89 

CMP 

#$89 

8A05 

85 

14 

STA 

$14 


8A5F 

F0 

20 

BEQ 

c. 

CO 

s 

* 

8A0? 

A5 

CA 

LDA 

$CA 


8A61 

09 

CB 

CMP 

#$CB 

8A09 

85 

15 

STA 

$15 


8A63 

D0 

0B 

BNE 

CO 

r-* 

s 

* 

8A0B 

20 

13 A6 

JSR 

$A61 3 


8A65 

08 


I NY 


8A0E 

B0 

05 

BOS 

$8A15 


8A66 

B1 

FB 

LDA 

<$FB>,Y 

8A10 

A2 

15 

LDX 

#$15 


8A68 

09 

20 

CMP 

#$20 

8A12 

4C 

37 A4 

JMP 

$A437 


8A6A 

F0 

F9 

BEQ 

$8A65 

8A15 

A5 

5F 

LDA 

$5F 


8A6C 

09 

A4 

CMP 

#$A4 

8A17 

85 

41 

STA 

$41 


8A6E 

F0 

ID 

BEQ 

$8A8D 

8A19 

A5 

60 

LDA 

$60 


8A70 

09 

8D 

CMP 

#$8D 

8A1B 

85 

42 

STA 

$42 


8A72 

F0 

19 

BEQ 

$8A8D 

8A1D 

A0 

00 

LDY 

#$00 


8A74 

09 

E6 

CMP 

#$E6 

8A1F 

B1 

FB 

LDA 

($FB) 

rY 

8A76 

F0 

15 

BEQ 

$8A8D 

8A21 

85 

FD 

STA 

$FD 


8A78 

D0 

B5 

BNE 

$8A2F 

8A23 

C8 


I NY 



8A7A 

08 


I NY 


8A24 

B1 

FB 

LDA 

<$FB), 

.Y 

8A7B 

B1 

FB 

LDA 

($FB),Y 

8A26 

85 

FE 

STA 

$FE 


8A7D 

09 

20 

CMP 

#$20 

8A28 

D0 

03 

BNE 

$8A2D 


8A7F 

F0 

F9 

BEQ 

$8A7A 

8A2A 

4C 

62 8B 

JMP 

$8B62 


8A81 

09 

30 

CMP 

#$30 

8A2D 

C8 


I NY 



8A83 

80 

03 

BCS 

$8A88 

8A2E 

C8 


I NY 



8A85 

88 


DEY 


8A2F 

C8 


I NY 



8A86 

D0 

A7 

BNE 

Li. 

3 

& 

8A30 

B1 

FB 

LDA 

<$FB), 

|Y 

8A88 

88 


DEY 


8A32 

D0 

0A 

BNE 

$8A3E 


8A89 

09 

3A 

CMP 

#$3A 

8A34 

A5 

FD 

LDA 

$FD 


8A8B 

B0 

A2 

BCS 

$8A2F 

8A36 

85 

FB 

STA 

$FB 


8A8D 

08 


I NY 


8A38 

A5 

FE 

LDA 

$FE 


8A8E 

B1 

FB 

LDA 

<$FB),Y 

8A3A 

85 

FC 

STA 

$FC 


8A90 

09 

20 

CMP 

#$20 

8A3C 

D8 

DF 

BNE 

$8A1 D 


8A92 

F0 

F9 

BEQ 

$8A8D 

8A3E 

09 

22 

CMP 

#$22 


8A94 

84 

49 

STY 

$49 

8A40 

D0 

0B 

BNE 

$8A4D 


8A96 

88 


DEY 
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8A97 A2 80 
8A99 C8 
8A9A B1 FB 
8A9C C9 30 
8A9E 90 0A 
8AA0 C9 3A 
8AA2 B0 96 
8AA4 9D 00 02 
8AA7 E8 
8AA8 D0 EF 
8AAA A9 3A 
8AAC 9D 00 02 
8AAF 86 BF 
8AB1 A9 02 
8AB3 85 7B 
8AB5 A9 00 
8AB7 85 7A 
8AB9 20 F5 81 
8ABC A5 14 
8ABE 85 C3 
8AC0 A5 15 
8AC2 85 C4 
8AC4 C5 CA 
8AC6 F0 0A 
8AC8 B0 0E 
8ACA A5 49 
8ACC 65 BF 
8ACE A8 
8ACF 4C 55 8B 
8AD2 A5 C3 
8AD4 C5 C9 
8AD6 90 F2 
8AD8 A5 BD 
8ADA 85 B9 
8ADC A5 41 
8ADE 85 58 
8AE0 A5 BE 
8AE2 85 BA 
8AE4 A5 42 
8AE6 85 59 
8AE8 A0 00 
8AEA B1 58 
8AEC 85 5A 
8AEE C8 
8AEF B1 58 
8AF1 85 5B 


LDX #*00 
I NY 

LDA <*FB),Y 
CMP #*30 
BCC *8AAA 
CMP #*3A 
BCS *8AAA 
STA *0208,X 
INX 

BNE *8A99 
LDA #*3A 
STA *0200,X 
STX *BF 
LDA #*02 
STA *7B 
LDA #*00 
STA *7A 
JSR *81F5 
LDA *14 
STA *C3 
LDA *15 
STA *C4 
CMP *CA 
BEQ *8AD2 
BCS *8AD8 
LDA *49 
ADC *BF 
TAY 

JMP *8B55 
LDA *C3 
CMP *C9 
BCC *8ACA 
LDA *BD 
STA *B9 
LDA *41 
STA *58 
LDA *BE 
STA *BA 
LDA *42 
STA *59 
LDY #*00 
LDA <*58), 
STA *5A 
I NY 

LDA (*58), 
STA *5B 


8AF3 D0 10 
8AF5 A0 02 
8AF7 B1 FB 
8AF9 85 39 
8AFB C8 
8AFC B1 FB 
8AFE 85 3A 
8B00 A2 11 
8B02 4C 37 A4 
8B05 C8 
8B06 B1 58 
8B08 85 B7 
8B0A C8 
8B0B B1 58 
8B0D C5 C4 
8B0F D0 06 
8B11 A5 B7 
8B13 C5 C3 
8B15 F8 15 
8B17 A5 B9 
8B19 18 
8B1A 65 BC 
8B1C 85 B9 
8B1E 90 02 
8B20 E6 BA 
8B22 A5 5A 
8B24 85 58 
8B26 A5 5B 
8B28 85 59 
8B2A D0 BC 
8B2C A6 B9 
8B2E A5 BA 
8B30 20 7F 84 
8B33 A5 BF 
8B35 85 3E 
8B37 E4 3E 
8B39 F0 0B 
8B3B B0 06 
8B3D 20 8B 88 
8B40 4C 46 8B 
8B43 20 33 89 
8B46 A4 49 
8B48 A2 00 
8B4A BD 00 02 
8B4D F0 06 
8B4F 91 FB 


BNE *8B05 
LDY #*02 
LDA (*FB),Y 
STA *39 
I NY 

LDA (*FB),Y 
STA *3A 
LDX #*11 
JMP *A437 
I NY 

LDA (*58),Y 
STA *B7 
I NY 

LDA (*58),Y 
CMP *C4 
BNE *8B17 
LDA *B7 
CMP *C3 
BEQ *8B2C 
LDA *B9 
CLC 

ADC *BC 
STA *B9 
BCC *8B22 
INC *BA 
LDA *5A 
STA *58 
LDA *5B 
STA *59 
BNE *8AE8 
LDX *B9 
LDA *BA 
JSR *847F 
LDA *BF 
STA *3E 
CPX *3E 
BEQ *8B46 
BCS *8B43 
JSR *888B 
JMP *8B46 
JSR *8933 
LDY *49 
LDX #*00 
LDA *0200,X 
BEQ *8B55 
STA (*FB),Y 
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8B51 

08 


I NY 


8BA6 

85 

FE 

STA 

♦FE 

8B52 

E8 


I NX 


8BA8 

D0 

05 

BNE 

♦8BAF 

8B53 

D0 

F5 

BNE 

♦8B4A 

8 BAA 

68 


PLA 


8B55 

B1 

FB 

LDA 

(♦FB),Y 

8BAB 

68 


PLA 


8B57 

C9 

2C 

CMP 

#*2C 

8BAC 

4C 

74 A4 

JMP 

♦A474 

8B59 

F0 

04 

BEQ 

♦8B5F 

8BAF 

C8 


I NY 


8B5B 

88 


DEY 


8BB0 

C8 


I NY 


8B5C 

4C 

2F 8A 

JMP 

♦8A2F 

8BB1 

C8 


I NY 


8B5F 

4C 

8D 8A 

JMP 

♦8A8D 

8BB2 

B1 

FB 

LDA 

(♦FB),Y 

8B62 

A0 

00 

LOY 

#♦00 

8BB4 

D0 

0C 

BNE 

♦8BC2 

8B64 

B1 

41 

LDA 

(♦41),Y 

8BB6 

A5 

FD 

LDA 

♦FD 

8B66 

85 

5A 

STA 

♦5A 

8BB8 

85 

FB 

STA 

♦FB 

8B68 

C8 


I NY 


8BBA 

A5 

FE 

LDA 

♦FE 

8B69 

B1 

41 

LDA 

(♦41),Y 

8BBC 

85 

FC 

STA 

♦FC 

8B6B 

85 

5B 

STA 

♦5B 

8BBE 

A2 

00 

LDX 

#♦00 

8B6D 

D0 

05 

BNE 

♦8B74 

8BC0 

F0 

DB 

BEQ 

♦8B9D 

8B6F 

68 


PLA 


8BC2 

C9 

FF 

CMP 

#^FF 

8B70 

68 


PLA 


8BC4 

D0 

04 

BNE 

♦8BCA 

8B71 

4C 

74 A4 

JMP 

♦A474 

8BC6 

85 

3E 

STA 

♦3E 

8B74 

C8 


I NY 


8BC8 

F0 

21 

BEQ 

♦8BEB 

8B75 

A5 

BD 

LDA 

♦BD 

8BCA 

C9 

22 

CMP 

#♦22 

8B77 

91 

41 

STA 

(♦41),Y 

8BCC 

D0 

09 

BNE 

♦8BD7 

8B79 

C8 


I NY 


8BCE 

E8 


I NX 


8B7A 

A5 

BE 

LDA 

♦BE 

8BCF 

E0 

02 

CPX 

#♦02 

8B7C 

91 

41 

STA 

<♦41),Y 

8BD1 

D0 

08 

BNE 

♦8BDB 

8B7E 

18 


CLC 


8BD3 

A2 

00 

LDX 

#♦00 

8B7F 

A5 

BO 

LDA 

♦BD 

8BD5 

F0 

DA 

BEQ 

♦8BB1 

8B81 

65 

BC 

ADC 

♦BC 

8BD7 

E0 

01 

CPX 

#♦01 

8B83 

85 

BO 

STA 

♦BD 

8BD9 

D0 

D6 

BNE 

♦8BB1 

8B85 

90 

02 

BCC 

♦8B89 

8BDB 

85 

3E 

STA 

♦3E 

8B87 

E6 

BE 

INC 

♦BE 

8BDD 

C9 

C0 

CMP 

#♦00 

8B89 

A5 

5A 

LDA 

♦5A 

8BDF 

90 

62 

BCC 

♦8BE3 

8B8B 

85 

41 

STA 

♦41 

8BE1 

E9 

60 

SBC 

#♦60 

8B8D 

A5 

5B 

LDA 

♦5B 

8BE3 

C9 

60 

CMP 

#♦60 

8B8F 

85 

42 

STA 

♦42 

8BE5 

B0 

04 

BCS 

CD 

LU 

CD 

CD 

* 

8B91 

D0 

CF 

BNE 

♦8B62 

8BE7 

C9 

21 

CMP 

#♦21 

8B93 

A2 

00 

LDX 

#♦00 

8BE9 

B0 

C6 

BCS 

♦8BB1 

8B95 

A5 

2B 

LDA 

♦2B 

8BEB 

85 

3D 

STA 

♦3D 

8B97 

85 

FB 

STA 

♦FB 

8BED 

84 

49 

STY 

♦49 

8B99 

A5 

2C 

LDA 

♦2C 

8BEF 

86 

3C 

STX 

♦3C 

8B9B 

85 

FC 

STA 

♦FC 

8BF1 

A2 

01 

LDX 

#♦01 

8B9D 

A0 

00 

LDY 

#♦00 

8BF3 

C8 


I NY 


8B9F 

81 

FB 

LDA 

(♦FB) f Y 

8BF4 

B1 

FB 

LDA 

(♦FB),Y 

8BA1 

85 

FO 

STA 

♦FD 

8BF6 

C5 

3E 

CMP 

♦3E 

8BA3 

08 


I NY 


8BF8 

D0 

03 

BNE 

♦8BFD 

8BA4 

B1 

FB 

LDA 

(♦FB),Y 

8BFA 

E8 


I NX 
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8BFB 

D0 

F6 


BNE 

*8BF3 

8C59 

F0 

03 

BEQ 

*8C5E 

8BFD 

86 

3E 


STX 

*3E 

8C5B 

C8 


I NY 


8BFF 

E0 

02 


CPX 

#*02 

8C5C 

91 

FB 

STA 

<*FB),Y 

8C01 

B0 

12 


BCS 

*8C15 

8C5E 

A5 

3F 

LDA 

*3F 

8C03 

CA 



DEX 


8C60 

F0 

03 

BEQ 

*8C65 

8C04 

A5 

3D 


LDA 

*3D 

8C62 

C8 


INY 


8C06 

C9 

20 


CMP 

#*20 

8C63 

91 

FB 

STA 

<*FB),Y 

8C08 

F0 

08 


BEQ 

*8C12 

8C65 

A9 

47 

LDA 

#*47 

8C0A 

A9 

00 


LDA 

#*00 

8C67 

C8 


INY 


8C0C 

85 

40 


STA 

*40 

8C68 

91 

FB 

STA 

<*FB),Y 

8C0E 

85 

3F 


STA 

*3F 

8C6A 

A9 

3E 

LDA 

#*3E 

8C10 

F0 

15 


BEQ 

*8C27 

8C6C 

C8 


INY 


8C12 

40 

33 

8D 

JMP 

*8D33 

8C6D 

91 

FB 

STA 

<*FB),Y 

8C15 

A9 

00 


LDA 

#*00 

8C6F 

A5 

3D 

LDA 

*3D 

8C17 

20 

7F 

84 

JSR 

*847F 

8C71 

C8 


INY 


8C1A 

A2 

00 


LDX 

#*00 

8C72 

91 

FB 

STA 

<*FB),Y 

8C1C 

BD 

00 

02 

LDA 

*0200,X 

8C74 

A9 

5D 

LDA 

#*5D 

8C1F 

85 

3F 


STA 

*3F 

8C 76 

C8 


INY 


8C21 

E8 



I NX 


8C77 

91 

FB 

STA 

<*FB),Y 

8C22 

BD 

00 

02 

LDA 

*0200,X 

8C79 

A6 

3C 

LDX 

*3C 

8C25 

85 

40 


STA 

*40 

8C7B 

4C 

B1 8B 

JMP 

*8BB1 

8C27 

A5 

3D 


LDA 

*3D 

8C7E 

85 

3D 

STA 

*3D 

8C29 

09 

61 


CMP 

#*61 

8C80 

A9 

50 

LDA 

#*50 

8C2B 

90 

51 


BCC 

*8C7E 

8C82 

85 

62 

STA 

*62 

8C2D 

09 

7B 


CMP 

#*7B 

8C84 

A9 

A3 

LDA 

#*A3 

8C2F 

B0 

4D 


BCS 

*8C7E 

8C86 

85 

63 

STA 

*63 

8C31 

38 



SEC 


8C88 

A2 

51 

LDX 

#*51 

8C32 

E9 

20 


SBC 

#*20 

8C8A 

A0 

00 

LDY 

#*00 

8C34 

85 

3D 


STA 

*3D 

8C8C 

20 

FB 81 

JSR 

*81 FB 

8C36 

A2 

07 


LDX 

#*07 

8C8F 

B1 

62 

LDA 

<*62),Y 

8C38 

A5 

40 


LDA 

*40 

8C91 

48 


PHA 


8C3A 

D0 

06 


BNE 

*8C42 

8C92 

20 

02 82 

JSR 

*8202 

8C3C 

CA 



DEX 


8C95 

68 


PLA 


8C3D 

A5 

3F 


LDA 

*3F 

8C96 

C5 

3D 

CMP 

*3D 

8C3F 

D0 

01 


BNE 

*8C42 

8C98 

F0 

20 

BEQ 

*8CBA 

8C41 

CA 



DEX 


8C9A 

C8 


INY 


8C42 

E4 

3E 


CPX 

*3E 

8C9B 

C8 


INY 


8C44 

F0 

0B 


BEQ 

*8C51 

8C9C 

C8 


INY 


8C46 

B0 

06 


BCS 

*8C4E 

8C9D 

CA 


DEX 


8C48 

20 

8B 

88 

JSR 

*888B 

8C9E 

10 

EC 

BPL 

*8C8C 

8C4B 

4C 

51 

8C 

JMP 

*8C51 

8CA0 

A5 

3D 

LDA 

*3D 

8C4E 

20 

33 

89 

JSR 

*8933 

8CA2 

C9 

IB 

CMP 

#*1B 

8C51 

A4 

49 


LDY 

*49 

8CA4 

90 

05 

BCC 

*8CAB 

8C53 

A9 

5B 


LDA 

#*5B 

8CA6 

A2 

0D 

LDX 

#*0D 

8C55 

91 

FB 


STA 

<*FB),Y 

8CA8 

4C 

37 A4 

JMP 

*A437 

8C57 

A5 

40 


LDA 

*48 

8 CAB 

69 

40 

ADC 

#*40 
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8CAD 

8D 

48 A4 

8CB0 

A9 

43 

8CB2 

85 

62 

8CB4 

A9 

A4 

8CB6 

85 

63 

8CB8 

D0 

12 

8CBA 

C8 


8CBB 

20 

FB 81 

8CBE 

B1 

62 

8CC0 

48 


8CC1 

C8 


8CC2 

B1 

62 

8CC4 

85 

63 

8CC6 

20 

02 82 

8CC9 

68 


8CCA 

85 

62 

8CCC 

A0 

00 

8CCE 

20 

FB 81 

8CD1 

B1 

62 

8CD3 

85 

Cl 

8CD5 

20 

02 82 

8CD8 

A5 

Cl 

8CDA 

18 


8CDB 

69 

04 

8CDD 

AA 


8CDE 

A5 

40 

8CE0 

D0 

06 

8CE2 

CA 


8CE3 

A5 

3F 

8CE5 

D0 

01 

8CE7 

CA 


8CE8 

E4 

3E 

8CEA 

F0 

0B 

8CEC 

B0 

06 

8CEE 

20 

8B 88 

8CF1 

4C 

F7 8C 

8CF4 

20 

33 89 

8CF7 

A4 

49 

8CF9 

A9 

5B 

8CFB 

91 

FB 

8CFD 

A5 

3F 

8CFF 

F0 

03 

8D01 

C8 


8D02 

91 

FB 

8D04 

A5 

40 

8D06 

F0 

03 


STA $A448 
LDA #$43 
STA $62 
LDA #$A4 
STA $<43 
BNE $8CCC 
I NY 

JSR $81FB 
LDA ($62),Y 
PW* 

I NY 

LDA <$<42) ,Y 
STA $<43 
JSR $8202 
PLA 

STA *62 
LDY #$00 
JSR $81FB 
LDA ($62),Y 
STA $C1 
JSR $8202 
LDA $C1 
CLC 

ADC #$04 
TAX 

LDA $40 
BNE $8CE8 
DEX 

LDA $3F 
BNE $8CE8 
DEX 

CPX $3E 
BEQ $8CF7 
BCS $8CF4 
JSR $888B 
JMP $8CF7 
JSR $8933 
LDY $49 
LDA #$5B 
STA ($FB),Y 
LDA $3F 
BEQ $8D04z 
I NY 

STA ($FB) ,Y 
LDA $40 
BEQ $8D0B 


8D08 C8 
8D09 91 FB 
8D0B 84 49 
8D0D A0 00 
8D0F 20 FB 81 
8D12 C8 
8D13 81 62 
8D15 84 C2 
8D17 A4 49 
8D19 C8 
8D1A 91 FB 
8D1C 84 49 
8D1E A4 C2 
8D20 C4 Cl 
8D22 D0 EE 
8D24 20 02 82 
8D27 A4 49 
8D29 A9 5D 
8D2B C8 
8D2C 91 FB 
8D2E A6 3C 
8D30 4C B1 8B 
8D33 A4 49 
8D35 A6 3C 
8D37 4C 81 8B 
8D3A A5 9D 
8D3C F0 21 
8D3E 78 
8D3F A9 FF 
8D41 8D 47 8E 
8D44 A9 FF 
8D46 8D 46 8E 
8D49 AE 08 03 
8D4C 8E 50 8E 
8D4F A9 79 
8D51 8D 08 03 
8D54 AE 09 03 
8D57 8E 51 8E 
8D5A A9 8D 
8D5C 8D 09 03 
8D5F 58 
8D60 60 
8D61 78 
8D62 A5 9D 
8D64 F0 F9 
8D66 A9 00 


I NY 

STA ($FB),Y 
STY $49 
LDY #$00 
JSR $81FB 
I NY 

LDA ($62),Y 
STY $C2 
LDY $49 
I NY 

STA ($FB),Y 
STY $49 
LDY $C2 
CPY $C1 
BNE $8012 
JSR $8202 
LDY $49 
LDA #$5D 
I NY 

STA ($FB),Y 
LDX $3C 
JMP $8BB1 
LDY $49 
LDX $3C 
JMP $8BB1 
LDA $9D 
BEQ $8D5F 
SEI 

LDA #$FF 
STA $8E47 
LDA #$FF 
STA $8E46 
LDX $0308 
STX $8E50 
LDA #$79 
STA $0308 
LDX $0309 
STX $8E51 
LDA #$8D 
STA $0309 
CL I 
RTS 
SEI 

LDA $9D 
BEQ $8D5F 
LDA #$00 
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8D68 

8D 

46 

8E 

STA 

$8E46 

8D6B 

AD 

50 

8E 

LDA 

$8E50 

8D6E 

8D 

08 

03 

STA 

$0308 

8D71 

AD 

51 

8E 

LDA 

$8E51 

8D74 

8D 

09 

03 

STA 

$0309 

8D77 

58 



CLI 


8D78 

62 



RTS 


8D79 

8D 

49 

8E 

STA 

$8E49 

8D7C 

08 



PHP 


8D7D 

8E 

4A 

8E 

STX 

$8E4A 

8D80 

8C 

4B 

8E 

STY 

$8E4B 

8D83 

A5 

9D 


LDA 

$9D 

8D85 

F0 

0D 


BEQ 

$8D94 

8D87 

AD 

49 

8E 

LDA 

$8E49 

8D8A 

AC 

4B 

8E 

LDY 

$8E4B 

8D8D 

AE 

4A 

8E 

LDX 

$8E4A 

8D90 

28 



PLP 


8D91 

6C 

50 

8E 

JMP 

<$8E50) 

8D94 

A5 

39 


LDA 

$39 

8D96 

AD 

46 

8E 

LDA 

$8E46 

8D99 

F0 

EC 


BEQ 

$8D87 

8D9B 

38 



SEC 


8D9C 

20 

F0 

FF 

JSR 

$FFF0 

8D9F 

8E 

4D 

8E 

STX 

$8E4D 

8QA2 

8C 

4C 

8E 

STY 

$8E4C 

8DA5 

18 



CLC 


8DA6 

A2 

00 


LDX 

#$00 

8DA8 

A0 

18 


LDY 

#$18 

8DAA 

20 

F0 

FF 

JSR 

$FFF0 

8DAD 

A2 

0F 


LDX 

#$0F 

8DAF 

A9 

20 


LDA 

#$20 

8DB1 

20 

D2 

FF 

JSR 

$FFD2 

8DB4 

CA 



DEX 


8DB5 

D0 

F8 


BNE 

$8DAF 

8DB7 

18 



CLC 


8DB8 

A2 

00 


LDX 

#$00 

8DBA 

A0 

18 


LDY 

#$18 

8DBC 

20 

F0 

FF 

JSR 

$FFF0 

8 DBF 

A9 

12 


LDA 

#$12 

8DC1 

20 

D2 

FF 

JSR 

$FFD2 

8DC4 

AD 

4F 

8E 

LDA 

$8E4F 

8DC7 

AE 

4E 

8E 

LDX 

$8E4E 

8DCA 

20 

CD 

BD 

JSR 

$BDCD 

8DCD 

A9 

92 


LDA 

#$92 

8DCF 

20 

D2 

FF 

JSR 

$FFD2 

8DD2 

A9 

20 


LDA 

#$20 


8DD4 

20 

D2 

FF 

JSR 

$FFD2 

8DD7 

A9 

12 


LDA 

#$12 

8DD9 

20 

D2 

FF 

JSR 

$FFD2 

8DDC 

A5 

3A 


LDA 

$3A 

8 DDE 

8D 

4F 

8E 

STA 

$8E4F 

8DE1 

A6 

39 


LDX 

$39 

8DE3 

8E 

4E 

8E 

STX 

$8E4E 

8DE6 

20 

CD 

BD 

JSR 

$BDCD 

8DE9 

A9 

92 


LDA 

#$92 

8DEB 

20 

D2 

FF 

JSR 

$FFD2 

8DEE 

18 



CLC 


8DEF 

B0 

96 


BCS 

$8D87 

8DF1 

AE 

4D 

8E 

LDX 

$8E4D 

8DF4 

AC 

4C 

8E 

LDY 

$8E4C 

8DF7 

20 

F0 

FF 

JSR 

$FFF0 

8DFA 

20 

E4 

FF 

JSR 

$FFE4 

8DFD 

F0 

25 


BEQ 

$8E24 

8DFF 

C9 

2F 


CMP 

#$2F 

8E01 

90 

21 


BCC 

$8E24 

8E03 

C9 

3A 


CMP 

#$3A 

8E05 

B0 

ID 


BCS 

& 

00 

m 

K) 

8E07 

E9 

30 


SBC 

#$30 

8E09 

D0 

07 


BNE 

$8E12 

8E0B 

A9 

FF 


LDA 

#$FF 

8E0D 

8D 

47 

8E 

STA 

$8E47 

8E10 

D0 

12 


BNE 

$8E24 

8E12 

AA 



TAX 


8E13 

38 



SEC 


8E14 

A9 

00 


LDA 

CD 

CD 

t 

8E16 

2A 



ROL 


8E17 

CA 



DEX 


8E18 

D0 

FC 


BNE 

$8E16 

8E1A 

8D 

48 

8E 

STA 

$8E48 

8E1D 

A9 

00 


LDA 

#$00 

8E1F 

8D 

47 

8E 

STA 

$8E47 

8E22 

F0 

14 


BEQ 

$8E38 

8E24 

AE 

47 

8E 

LDX 

$8E47 

8E27 

F0 

0F 


BEQ 

$8E38 

8E29 

C9 

20 


CMP 

#$20 

8E2B 

F0 

16 


BEQ 

$8E43 

8E2D 

20 

E4 

FF 

JSR 

$FFE4 

8E30 

F0 

FB 


BEQ 

$8E2D 

8E32 

C9 

20 


CMP 

#$20 

8E34 

F0 

0D 


BEQ 

$8E43 

8E36 

D0 

C5 


BNE 

$8DFD 

8E38 

AE 

48 

8E 

LDX 

$8E48 
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8E3B 

A0 

FF 

LDY #$FF 

8E3D 

88 


DEY 

8E3E 

D0 

FD 

BNE $8E3D 

8E40 

CA 


DEX 

8E41 

D0 

F8 

BNE $8E3B 

8E43 

38 


SEC 

8E44 

F0 

A9 

BEQ $8DEF 

8E46 

FF 


??? 

8E47 

FF 


??? 

8E48 

00 


BRK 

8E49 

FF 


??? 

3E4A 

09 

0B 

ORA #$0B 

8E4C 

00 


BRK 

8E4D 

00 


BRK 

8E4E 

00 


BRK 

8E4F 

00 


BRK 

8E50 

02 


??? 

8E51 

83 


??? 

8E52 

A5 

9D 

LDA $9D 

8E54 

C9 

80 

CMP #$80 

8E5 6 

F0 

01 

BEQ $8E59 

8E58 

60 


RTS 

8E59 

A5 

2D 

LDA $2D 

8E5B 

85 

BB 

STA $BB 

8E5D 

A5 

2E 

LDA $2E 

8E5F 

85 

BC 

STA $BC 

8E61 

A5 

BC 

LDA $BC 

8E63 

C5 

30 

CMP $30 

8E65 

D0 

07 

BNE $8E6E 

8E67 

A5 

BB 

LDA $BB 

8E 69 

C5 

2F 

CMP $2F 

8E6B 

00 

01 

BNE $8E6E 

8E6D 

60 


RTS 

8E6E 

A0 

00 

LDY #$00 

8E70 

B1 

BB 

LDA <$BB),Y 

8E72 

C9 

80 

CMP #$80 

8E74 

B0 

5A 

BCS $8ED0 

8E76 

28 

D2 FF 

JSR $FFD2 

8E79 

C8 


I NY 

8E7A 

B1 

BB 

LDA <$BB),Y 

8E7C 

09 

7F 

CMP #$7F 

8E7E 

B0 

17 

BCS $8E97 

8E80 

20 

D2 FF 

JSR $FFD2 

8E83 

20 

33 8F 

JSR $8F33 

8E86 

A5 

BB 

LDA $BB 

8E88 

A4 

BC 

LDY $BC 


,:S 

LU 

00 

20 

A2 

BB 

JSR 

$BBA2 

8E8D 

20 

DD 

BD 

JSR 

$BDDD 

8E90 

20 

IE 

AB 

JSR 

$AB1E 

8E93 

A9 

FF 


LDA 

#$FF 

8E95 

D0 

7A 


BNE 

$8F11 

8E97 

29 

7F 


AND 

#$7F 

8E99 

20 

D2 

FF 

JSR 

$FFD2 

8E9C 

A9 

24 


LDA 

#$24 

8E9E 

20 

D2 

FF 

JSR 

$FFD2 

8EA1 

20 

33 

8F 

JSR 

$8F33 

8EA4 

A9 

22 


LDA 

#$22 

8EA6 

20 

D2 

FF 

JSR 

$FFD2 

8EA9 

A0 

00 


LDY 

#$00 

8EAB 

B1 

BB 


LDA 

<$BB),Y 

8EAD 

AA 



TAX 


8EAE 

F0 

15 


BEQ 

$8EC5 

8EB0 

C8 



I NY 


8EB1 

B1 

BB 


LDA 

<$BB),Y 

8EB3 

85 

22 


STA 

$22 

8EB5 

C8 



I NY 


8EB6 

B1 

BB 


LDA 

<$BB),Y 

8EB8 

85 

23 


STA 

$23 

8EBA 

A0 

00 


LDY 

#$00 

8EBC 

B1 

22 


LDA 

($22),Y 

8EBE 

20 

D2 

FF 

JSR 

$FFD2 

8EC1 

C8 



I NY 


8EC2 

CA 



DEX 


8EC3 

D0 

F7 


BNE 

$8EBC 

8EC5 

A9 

22 


LDA 

#$22 

8EC7 

20 

D2 

FF 

JSR 

$FFD2 

8ECA 

F0 

45 


BEQ 

$8F11 

8ECC 

D0 

43 


BNE 

$8F11 

8ECE 

B0 

91 


BCS 

$8E61 

8ED0 

29 

7F 


AND 

#$7F 

8ED2 

20 

D2 

FF 

JSR 

$FFD2 

8ED5 

C8 



I NY 


8ED6 

B1 

BB 


LDA 

($BB),Y 

8ED8 

C9 

7F 


CMP 

#$7F 

8EDA 

B0 

12 


BCS 

$8EEE 

8EDC 

20 

D2 

FF 

JSR 

$FFD2 

8EDF 

20 

33 

8F 

JSR 

$8F33 

8EE2 

A9 

46 


LDA 

#$46 

8EE4 

20 

D2 

FF 

JSR 

$FFD2 

8EE7 

A9 

4E 


LDA 

#$4E 

8EE9 

20 

D2 

FF 

JSR 

$FFD2 

8EEC 

D0 

23 


BNE 

$8F11 
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8EEE 

29 

7F 


AND 

#$7F 

8EF0 

20 

D2 

FF 

JSR 

$FFD2 

8EF3 

A9 

25 


LDA 

#$25 

8EF5 

20 

D2 

FF 

JSR 

$FFD2 

8EF8 

20 

33 

8F 

JSR 

$8F33 

8EFB 

A0 

00 


LDY 

#$00 

8EFD 

B1 

BB 


LDA 

<$BB),Y 

8EFF 

85 

62 


STA 

$62 

8F01 

C8 



I NY 


8F02 

B1 

BB 


LDA 

<$BB>,Y 

8F04 

85 

63 


STA 

$63 

8F06 

A2 

90 


LDX 

#$90 

8F08 

20 

44 

BC 

JSR 

$BC44 

8F0B 

20 

DD 

BD 

JSR 

$BDDD 

8F0E 

20 

IE 

AB 

JSR 

$AB1E 

8F11 

A9 

0D 


LDA 

#$0D 

8F13 

20 

D2 

FF 

JSR 

$FFD2 

8F16 

18 



CLC 


8F17 

A5 

BB 


LDA 

$BB 

8F19 

69 

05 


ADC 

#$05 

8F1B 

85 

BB 


STA 

$BB 

8F1D 

90 

02 


BCC 

$8F21 

8F1F 

E6 

BC 


INC 

$BC 

8F21 

20 

E4 

FF 

JSR 

$FFE4 

8F24 

20 

El 

FF 

JSR 

$FFE1 

8F27 

D0 

01 


BNE 

$8F2A 

8F29 

60 



RTS 


8F2A A5 

CB 


LDA 

$CB 

8F2C 

C9 

40 


CMP 

#$40 

8F2E 

D0 

FI 


BNE 

$8F21 

8F30 

38 



SEC 


8F31 

B0 

9B 


BCS 

* 

CO 

m 

o 

m 

8F33 

A9 

3D 


LDA 

#$3D 

8F35 

20 

D2 

FF 

JSR $FFD2 

8F38 

18 



CLC 


8F39 

A5 

BB 


LDA 

$BB 

8F3B 

69 

02 


ADC 

#$02 

8F3D 

85 

BB 


STA 

$BB 

8F3F 

90 

02 


BCC 

$8F43 

8F41 

E6 

BC 


INC 

$BC 

8F43 

60 



RTS 


8F44 

90 

03 


BCC 

$8F49 

8F4 6 

4C 

08 

AF 

JMP 

$AF08 

8F49 

20 

F5 

81 

JSR 

$81F5 

8F4C 

20 

13 A6 

JSR 

$A613 

8F4F 

B0 

05 


BCS 

$8F56 


8F51 

A2 

15 


LDX 

#$15 

8F53 

4C 

37 

A4 

JMP 

$A437 

8F56 

A5 

5F 


LDA 

$5F 

8F58 

85 

FB 


STA 

$FB 

8F5A 

A5 

60 


LDA 

$60 

8F5C 

85 

FC 


STA 

$FC 

8F5E 

20 

79 

00 

JSR 

$0079 

8F61 

C9 

2C 


CMP 

#$2C 

8F63 

D0 

El 


BNE 

$8F46 

8F65 

20 

73 

00 

JSR 

$0073 

8F68 

D0 

0F 


BNE 

$8F79 

8F6A 

38 



SEC 


8F6B 

A5 

2D 


LDA 

$2D 

8F6D 

E9 

02 


SBC 

#$02 

8F6F 

85 

5F 


STA 

$5F 

8F71 

A5 

2E 


LDA 

$2E 

8F73 

E9 

00 


SBC 

#$00 

8F75 

85 

60 


STA 

$60 

8F77 

D0 

18 


BNE 

$8F91 

8F79 

B0 

CB 


BCS 

$8F46 

8F7B 

20 

F5 

81 

JSR 

$81F5 

8F7E 

E6 

14 


INC 

$14 

8F80 

20 

13 

A6 

JSR 

$A613 

8F83 

A5 

FC 


LDA 

$FC 

8F85 

C5 

60 


CMP 

$60 

8F87 

90 

08 


BCC 

$8F91 

8F89 

D0 

BB 


BNE 

$8F46 

8F8B 

A5 

FB 


LDA 

$FB 

8F8D 

C5 

5F 


CMP 

$5F 

8F8F 

B0 

B5 


BCS 

$8F46 

8F91 

A0 

00 


LDY 

#$00 

8F93 

A5 

5F 


LDA 

$5F 

8F95 

91 

FB 


STA 

($FB),Y 

8F97 

C8 



I NY 


8F98 

A5 

60 


LDA 

$60 

8F9A 

91 

FB 


STA 

($FB),Y 

8F9C 

C8 



I NY 


8F9D 

B1 

FB 


LDA 

($FB),Y 

8F9F 

AA 



TAX 


8FA0 

C8 



I NY 


8FA1 

B1 

FB 


LDA 

<$FB),Y 

8FA3 

20 

7F 

84 

JSR 

$847F 

8FA6 

68 



PLA 


8FA7 

68 



PLA 


8FA8 

A2 

FF 


LDX 

#$FF 

8FAA 

A9 

01 


LDA 

#$01 
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8 FAC 

4C 

7D 

92 

JMP $927D 

9008 

B1 

FB 


LDA 

<$FB),Y 

8FAF 

20 

F5 

81 

JSR $81F5 

900A 

85 

FD 


STA 

$FD 

8FB2 

4C 

A3 

A3 

JMP $A8A3 

900C 

C8 



I NY 


8FB5 

A9 

03 


LDA #*03 

90 0D 

B1 

FB 


LDA 

<$FB>,Y 

8FB7 

20 

FB 

A3 

JSR $A3FB 

900F 

85 

FE 


STA 

$FE 

8FBA 

A5 

7B 


LDA $7B 

9011 

D0 

05 


BNE 

$9018 

8FBC 

48 



PHA 

9013 

A2 

11 


LDX 

#$11 

8FBD 

A5 

7A 


LDA $7A 

9015 

4C 

37 

A4 

JMP 

$A437 

8FBF 

48 



PHA 

9018 

A0 

04 


LDY 

#$04 

8FC0 

A5 

3A 


LDA $3A 

901A 

B1 

FB 


LDA 

<$FB),Y 

8FC2 

48 



PHA 

901C 

C9 

El 


CMP 

#$E1 

8FC3 

A5 

3B 


LDA $3B 

90 IE 

F0 

0A 


BEQ 

$90 2A 

8FC5 

48 



PHA 

9020 

A5 

FD 


LDA 

$FD 

8FC4 

A9 

8D 


LDA #$8D 

9022 

85 

FB 


STA 

$FB 

8FC8 

48 



PHA 

9024 

A5 

FE 


LDA 

$FE 

8FC9 

20 

79 

00 

JSR $0079 

9024 

85 

FC 


STA 

$FC 

8FCC 

20 

AF 

8F 

JSR $8FAF 

9028 

D0 

DC 


BNE 

$9004 

8FCF 

4C 

AE 

A7 

JMP $A7AE 

90 2A 

A2 

FF 


LDX 

#$FF 

8FD2 

A2 

00 


LDX #$00 

90 2C 

E8 



I NX 


8FD4 

C4 

7A 


DEC $7A 

90 2D 

C8 



I NY 


8FD4 

B0 

02 


BCS $8FDA 

902E 

B1 

FB 


LDA 

<$FB),Y 

8FD8 

C4 

7B 


DEC $7B 

9030 

F0 

07 


BEQ 

$9039 

8FDA 

20 

73 

00 

JSR $8073 

9032 

DD 

00 

02 

CMP 

$0200,X 

8FDD 

F0 

04 


BEQ $8FE5 

9035 

F0 

F5 


BEQ 

$90 2C 

8FDF 

9D 

00 

02 

STA $0200,X 

9037 

D0 

E7 


BNE 

$9020 

8FE2 

E8 



I NX 

9039 

DD 

00 

02 

CMP 

$0200,X 

8FE3 

D0 

F5 


BNE $8FDA 

90 3C 

DO 

E2 


BNE 

$9020 

8FE5 

A9 

00 


LDA #$00 

90 3E 

38 



SEC 


8FE7 

9D 

00 

02 

STA $0200,X 

90 3F 

A5 

FB 


LDA 

$FB 

8FEA 

A9 

03 


LDA #$03 

9041 

E9 

01 


SBC 

#$01 

8FEC 

20 

FB 

A3 

JSR $A3FB 

9043 

85 

7A 


STA 

$7A 

8FEF 

A5 

7B 


LDA $7B 

9045 

A5 

FC 


LDA 

$FC 

8FF1 

48 



PHA 

9047 

E9 

00 


SBC 

#$00 

8FF2 

A5 

7A 


LDA $7A 

9049 

85 

7B 


STA 

$7B 

8FF4 

48 



PHA 

90 4B 

4C 

AE 

A7 

JMP 

$A7AE 

8FF5 

A5 

3A 


LDA $3A 

90 4E 

D0 

0C 


BNE 

$90 5C 

8FF7 

48 



PHA 

9050 

A9 

00 


LDA 

#$00 

8FF8 

A5 

39 


LDA $39 

9052 

85 

CB 


STA 

$CB 

8FFA 

48 



PHA 

9054 

20 

E4 

FF 

JSR 

$FFE4 

8FFB 

A9 

8D 


LDA #$8D 

9057 

F0 

FB 


BEQ 

$9054 

8FFD 

48 



PHA 

9059 

85 

90 


STA 

$90 

8FFE 

A5 

2B 


LDA $2B 

90 5B 

40 



RTS 


9000 

85 

FB 


STA $FB 

90 5C 

20 

9E 

AD 

JSR 

$AD9E 

9002 

A5 

2C 


LDA $2C 

90 5F 

20 

A3 

B4 

JSR 

$B4A3 

9004 

85 

FC 


STA $FC 

9042 

C9 

00 


CMP 

#$00 

9004 

A0 

00 


LDY #$00 

9044 

F0 

EA 


BEQ 

$9050 
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9066 

85 

FB 


STA 

$FB 

90C1 

E6 

59 


INC 

$59 

9268 

A9 

00 


LDA 

#$00 

90 C3 

A5 

59 


LDA 

$59 

906A 

85 

C6 


STA 

$C6 

90C5 

85 

FC 


STA 

$FC 

90 6C 

20 

E4 

FF 

JSR 

$FFE4 

90 C7 

85 

38 


STA 

$38 

98 6F 

F0 

FB 


BEQ 

$906C 

90C9 

A6 

2B 


LDX 

$2B 

927 1 

A4 

FB 


LDY 

$FB 

90 CB 

A4 

2C 


LDY 

$2C 

9073 

88 



DEY 


90CD 

A9 

00 


LDA 

#$00 

9074 

D1 

22 


CMP 

($22),Y 

90 CF 

20 

D5 

FF 

JSR 

$FFD5 

9076 

F0 

05 


BEQ 

$907D 

90D2 

90 

03 


BCC 

$90D7 

9078 

88 



DEY 


90 D4 

4C 

F9 

E0 

JMP 

$E0F9 

9079 

10 

F9 


BPL 

$9074 

90D7 

20 

B7 

FF 

JSR 

$FFB7 

90 7B 

30 

EF 


BMI 

$906C 

90 DA 

29 

BF 


AND 

#$BF 

907D 

85 

90 


STA 

$90 

90DC 

F0 

05 


BEQ 

$90E3 

90 7F 

60 



RTS 


90 DE 

A2 

ID 


LDX 

#$1D 

9080 

20 

D4 

El 

JSR 

$E1D4 

90E0 

4C 

37 

A4 

JMP 

$A437 

9083 

A9 

00 


LDA 

#$00 

90 E3 

86 

2D 


STX 

$2D 

9085 

85 

B9 


STA 

$B9 

90E5 

84 

2E 


STY 

$2E 

9087 

29 

26 

B5 

JSR 

$B526 

90 E7 

86 

5F 


STX 

$5F 

908A 

A5 

2D 


LDA 

$2D 

90E9 

84 

60 


STY 

$60 

90 8C 

85 

5F 


STA 

$5F 

90 EB 

A5 

FB 


LDA 

$FB 

90 8E 

A5 

2E 


LDA 

$2E 

90ED 

85 

5A 


STA 

$5A 

9090 

85 

60 


STA 

$68 

90 EF 

A5 

FC 


LDA 

$FC 

9092 

38 



SEC 


90F1 

85 

5B 


STA 

$5B 

9093 

A5 

31 


LDA 

$31 

90 F3 

38 



SEC 


9095 

85 

5A 


STA 

$5A 

90F4 

A5 

33 


LDA 

$33 

9097 

E5 

2F 


SBC 

$2F 

90 F6 

E9 

01 


SBC 

#$01 

9099 

85 

FD 


STA 

$FD 

90F8 

A8 



TAY 


90 9B 

A5 

32 


LDA 

$32 

90 F9 

A5 

34 


LDA 

$34 

909D 

85 

5B 


STA 

$5B 

90FB 

E9 

00 


SBC 

#$00 

90 9F 

E5 

30 


SBC 

$30 

90 FD 

AA 



TAX 


90A1 

85 

FE 


STA 

$FE 

90FE 

98 



TYA 


90A3 

A5 

33 


LDA 

$33 

90 FF 

38 



SEC 


90A5 

38 



SEC 


9100 

E5 

5A 


SBC 

$5A 

90A6 

E9 

01 


SBC 

#$01 

9102 

85 

58 


STA 

$58 

90A8 

85 

58 


STA 

$58 

9104 

A8 



TAY 


90AA 

A5 

34 


LDA 

$34 

9105 

8A 



TXA 


90 AC 

E9 

00 


SBC 

#$00 

9106 

E5 

5B 


SBC 

$5B 

90AE 

85 

59 


STA 

$59 

9108 

AA 



TAX 

90B0 

20 

BF 

A3 

JSR 

$A3BF 

9109 

E8 



I NX 


90 B3 

A5 

37 


LDA 

$37 

910A 

98 



TYA 


90B5 

85 

41 


STA 

$41 

918B 

F0 

IF 


BEQ 

$912C 

90 B7 

A5 

38 


LDA 

$38 

910D 

A5 

5A 


LDA 

$5A 

90B9 

85 

42 


STA 

$42 

918F 

18 



CLC 


90 BB 

A5 

58 


LDA 

$58 

9110 

65 

58 


ADC 

$58 

90 BD 

85 

FB 


STA 

$FB 

9112 

85 

5A 


STA 

$5A 

90 BF 

85 

37 


STA 

$37 

9114 

90 

03 


BCC 

$9119 
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9116 

E6 

58 

INC 

♦58 

9171 

A5 

15 

LDA 

$15 

9118 

18 


CLC 


9173 

C9 

04 

CMP 

#$04 

9119 

A5 

5F 

LDA 

$5F 

9175 

B0 

05 

BCS 

$917C 

91 IB 

65 

58 

ADC 

$58 

9177 

A2 

0E 

LDX 

#$0E 

911D 

85 

5F 

STA 

$5F 

9179 

4C 

37 A4 

JMP 

$A437 

911F 

90 

02 

BCC 

$9123 

917C 

C9 

80 

CMP 

#$80 

9121 

E6 

60 

INC 

$60 

917E 

B0 

F7 

BCS 

$9177 

9123 

98 


TYA 


9180 

60 


RTS 


9124 

49 

FF 

EOR 

#$FF 

9181 

20 

69 91 

JSR 

$9169 

9126 

A8 


TAY 


9184 

85 

38 

STA 

$38 

9127 

C8 


I NY 


9186 

A5 

14 

LDA 

$14 

9128 

C6 

5B 

DEC 

$5B 

9188 

85 

37 

STA 

$37 

912A 

C6 

60 

DEC 

$60 

918A 

4C 

63 A6 

JMP 

$A663 

912C 

B1 

5A 

LDA 

($5A), 

,Y 918D 

20 

69 91 

JSR 

$9169 

912E 

91 

5F 

STA 

<$5F), 

,Y 9190 

A0 

00 

LDY 

#$00 

9139 

C8 


I NY 


9192 

98 


TYA 


9131 

D0 

F9 

BNE 

$912C 

9193 

91 

14 

STA 

<$14),Y 

9133 

E6 

5B 

INC 

$5B 

9195 

C8 


I NY 


9135 

E6 

60 

INC 

$60 

9196 

91 

14 

STA 

($14),Y 

9137 

CA 


DEX 


9198 

C8 


I NY 


9138 

D0 

F2 

BNE 

$912C 

9199 

91 

14 

STA 

($14),Y 

913A 

38 


SEC 


919B 

A5 

14 

LDA 

$14 

913B 

A5 

5F 

LDA 

$5F 

919D 

18 


CLC 


913D 

85 

31 

STA 

$31 

919E 

69 

01 

ADC 

#$01 

913F 

E5 

FD 

SBC 

$FD 

91A0 

85 

2B 

STA 

$2B 

9141 

85 

2F 

STA 

$2F 

91A2 

AA 


TAX 


9143 

A5 

60 

LDA 

$60 

91A3 

A5 

15 

LDA 

$15 

9145 

85 

32 

STA 

$32 

91A5 

69 

00 

ADC 

#$00 

9147 

E5 

FE 

SBC 

$FE 

91A7 

85 

2C 

STA 

$2C 

9149 

85 

30 

STA 

$30 

91A9 

A8 


TAY 


914B 

A5 

41 

LDA 

$41 

91AA 

8A 


TXA 


914D 

85 

37 

STA 

$37 

91AB 

69 

02 

ADC 

#$02 

914F 

A5 

42 

LDA 

$42 

91AD 

85 

2D 

STA 

$2D 

9151 

85 

38 

STA 

$38 

91AF 

98 


TYA 


9153 

68 


PLA 


91B0 

69 

00 

ADC 

#$00 

9154 

68 


PLA 


91B2 

85 

2E 

STA 

$2E 

9155 

20 

33 A5 

JSR 

$A533 

91B4 

4C 

63 A6 

JMP 

$A663 

9158 

A9 

00 

LDA 

#$00 

91B7 

A9 

7C 

LDA 

#$7C 

915A 

20 

90 FF 

JSR 

$FF90 

91B9 

8D 

04 03 

STA 

$0304 

915D 

20 

E7 FF 

JSR 

$FFE7 

91BC 

A9 

A5 

LDA 

#$A5 

9160 

20 

77 A6 

JSR 

$A 677 

91 BE 

8D 

05 03 

STA 

$0305 

9163 

20 

8E A6 

JSR 

$A68E 

91C1 

A9 

1A 

LDA 

#$1A 

9166 

4C 

CF 92 

JMP 

$92CF 

91C3 

8D 

06 03 

STA 

$0306 

9169 

D0 

03 

BNE 

$916E 

91C6 

A9 

E4 

LDA 

#$E4 

916B 

4C 

08 AF 

JMP 

$AF08 

91C8 

8D 

08 03 

STA 

$0308 

916E 

20 

F5 81 

JSR 

$81F5 

91CB 

A9 

A7 

LDA 

#$A7 
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91 CD 

8D 

07 

03 

STA $0307 

9239 

8D 

11 

06 

STA 

$0611 

91D0 

8D 

09 

03 

STA $0309 

923C 

8D 

D6 

05 

STA 

$05D6 

91D3 

A9 

86 


LDA #$86 

923F 

8D 

26 

06 

STA 

$0626 

91D5 

8D 

0A 

03 

STA $030A 

9242 

A9 

05 


LDA 

#$05 

91D8 

A9 

AE 


LDA #$AE 

9244 

8D 

Cl 

D9 

STA 

$D9C1 

91 DA 

8D 

06 

03 

STA $030B 

9247 

8D 

11 

DA 

STA 

$DA11 

91DD 

A9 

FE 


LDA #$FE 

924A 

8D 

D6 

D9 

STA 

$D9D6 

91DF 

8D 

17 

03 

STA $0317 

924D 

8D 

26 

DA 

STA 

$DA26 

91E2 

8D 

19 

03 

STA $0319 

9250 

A9 

0D 


LDA 

#$0D 

91E5 

A9 

66 


LDA #$66 

9252 

20 

D2 

FF 

JSR 

$FFD2 

91E7 

8D 

16 

03 

STA $0316 

9255 

4C 

74 

A4 

JMP 

$A474 

91EA 

A9 

47 


LDA #$47 

9258 

18 



CLC 


91 EC 

8D 

18 

03 

STA $0318 

9259 

20 

F0 

FF 

JSR 

$FFF0 

91EF 

78 



SEI 

925C 

A9 

2A 


LDA 

#$2A 

91F8 

A9 

48 


LDA #$48 

925E 

A2 

16 


LDX 

#$16 

91F2 

8D 

8F 

02 

STA $028F 

9260 

20 

D2 

FF 

JSR 

$FFD2 

91F5 

A9 

EB 


LDA #$EB 

9263 

CA 



DEX 


91F7 

8D 

90 

02 

STA $0290 

9264 

D0 

FA 


BNE 

$9260 

91 FA 

58 



CL I 

9266 

60 



RTS 


91FB 

68 



PLA 

9267 

2A 



ROL 


91FC 

68 



PLA 

9268 

20 

59 

54 

JSR 

$5459 

91FD 

4C 

74 

A4 

JMP $A474 

9268 

49 

4C 


EOR 

#$4C 

9200 

20 

63 

A6 

JSR $A663 

926D 

49 

54 


EOR 

#$54 

9203 

A9 

93 


LDA #$93 

926F 

55 

20 


EOR 

$20 ,X 

9205 

20 

D2 

FF 

JSR $FFD2 

9271 

43 



??? 


9208 

A9 

00 


LDA #$00 

9272 

49 

53 


EOR 

#$53 

920A 

8D 

20 

D0 

STA $D020 

9274 

41 

42 


EOR 

($42,X) 

920D 

8D 

21 

D0 

STA $D021 

9276 

20 

20 

4E 

JSR 

$4E20 

9210 

A9 

05 


LDA #$05 

9279 

43 



??? 


9212 

8D 

86 

02 

STA $0286 

927A 

50 

20 


BVC 

$929C 

9215 

A2 

0A 


LDX #$0A 

927C 

2A 



ROL 


9217 

A0 

09 


LDY #$09 

927D 

AD 

02 

03 

LDA 

$0302 

9219 

20 

58 

92 

JSR $9258 

9280 

8D 

97 

92 

STA 

$9297 

921C 

A2 

0C 


LDX #$0C 

9283 

AD 

03 

03 

LDA 

$0303 

921E 

A0 

09 


LDY #$09 

9286 

8D 

9C 

92 

STA 

$929C 

9220 

18 



CLC 

9289 

A9 

96 


LDA 

#$96 

9221 

20 

F0 

FF 

JSR $FFF0 

928B 

8D 

02 

03 

STA 

$0302 

9224 

A2 

15 


LDX #$15 

928E 

A9 

92 


LDA 

#$92 

9226 

BD 

67 

92 

LDA $9267,X 

9290 

8D 

03 

03 

STA 

$0303 

9229 

20 

D2 

FF 

JSR $FFD2 

9293 

4C 

86 

A4 

JMP 

$A486 

922C 

CA 



DEX 

9296 

A9 

83 


LDA 

#$83 

922D 

10 

F7 


BPL $9226 

9298 

8D 

02 

03 

STA 

$0302 

922F 

A2 

0E 


LDX #$0E 

929B 

A9 

A4 


LDA 

#$A4 

9231 

A0 

09 


LDY #$09 

929D 

8D 

03 

03 

STA 

$0303 

9233 

20 

58 

92 

JSR $9258 

92A0 

20 

33 

A5 

JSR 

$A533 

9236 

8D 

Cl 

05 

STA $05C1 

92A3 

18 



CLC 
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92A4 

A5 

22 

LDA 

$22 

92A6 

69 

02 

ADC 

#$02 

92A8 

85 

2D 

STA 

$2D 

92AA 

A5 

23 

LDA 

$23 

92AC 

69 

00 

ADC 

#$00 

92AE 

85 

2E 

STA 

$2E 

92B0 

29 

60 A6 

JSR 

$A660 

92B3 

40 

74 A4 

JMP 

$A474 

92B6 

A5 

32 

LDA 

$32 

92B8 

C5 

2E 

CMP 

$2E 

92BA 

D0 

09 

BNE 

$92C5 

92BC 

A5 

31 

LDA 

$31 


92BE 

C5 

2D 


CMP 

$2D 

92C0 

D0 

03 


BNE 

$92C5 

92C2 

A9 

80 


LDA 

#$80 

92C4 

2C 

A9 

00 

BIT 

$00A9 

92C7 

85 

0C 


STA 

$0C 

92C9 

20 

79 

00 

JSR 

$0079 

92CC 

4C 

80 

90 

JMP 

$9080 

92CF 

A5 

0C 


LDA 

$0C 

92D1 

10 

04 


BPL 

$92D7 

92D3 

C6 

30 


DEC 

$30 

92D5 

C6 

32 


DEC 

$32 

92D7 

4C 

AE 

A7 

JMP 

$A7AE 


Loading the utility 

Once the utility and the data for coder have been set up, a loader 
program something like the following should be used. 


10 A=A+1: IF A=1 THEN LOAD"UTILITY DATA",8,1 
20 IF A=2 THEN LOAD"UTILITY",8,1 
30 SYS32768 


10 Bits’n’pieces 


General 

This chapter is a collection of snippets of information we have found 
out since acquiring our 64s about 18 months ago. No detailed code 
here, just the bare facts and a few ideas. 


AUTO-REPEATS and INTERRUPTS 

We have seen two articles on the subject of providing a repeat on all 
keys. Both articles were based upon the same idea used on the 
pre-8000 series pets. In essence the normal IRQ service routine is 
patched to include additional code by changing the vector at cinv from 
its default of $EA3i. The additional routine simple scans sfdx - if a key is 
being pressed then it is reset to no key ($40) - and ends with a jump to 
$EA3i to process the normal interrupt. This will then detect a key as 
being pressed and enter the appropriate character in the keyboard 
buffer. Alternatively, for a repeat on all keys, simply poke 650,128. To 
disable the repeat, poke 650, i. (For a full description of the IRQ service 
routine, see Chapter 4.) 

The second method is obviously far easier, but the first does allow a 
selective auto-repeat to be implemented. 

Whilst on the subject of the hardware interrupt (see Chapter 4 for its 
implementation in the key commands), here is a short example to 
demonstrate what can be done. The following program patches irq to 
scan for function keys 1 and 3. These keys are used to increment the 
border and background colours respectively. The routine only takes 
the appropriate action once every 60 interrupts (about a second). If you 
remove the interrupt counter from scoif to $C02D, the effects produced 
are quite unusual, but the routine becomes of little practical use as it is 
too fast to exercise selective control. 

To enable: SYS 49152 
To disable: SYS 49170 


0000 

78 

SEI 


ENABLE ENTRY 

C001 

API F 

LDA 

#*1F 

SET CINM TO POINT TO SC01F 

C003 

8D1403 

STA 

CO 

CD 


0004 

A9C0 

LDA 

#*C0 
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C008 

8D1503 

STA 

4-0315 

C00B 

A900 

LDA 

#400 

C00D 

8D00C1 

STA 

4C100 

C010 

58 

CL I 


C011 

60 

RTS 


C012 

78 

SEI 


C013 

A931 

LDA 

#431 

C015 

3D1403 

STA 

40314 

C018 

A9EA 

LDA 

#4EA 

C01A 

8D1503 

STA 

40315 

C01D 

58 

CLI 


C01E 

60 

RTS 


C01F 

EE00C1 

INC 

4C100 

C022 

AD00C1 

LDA 

4C100 

C025 

C93C 

CMP 

#43C 

C027 

D02A 

BNE 

4C053 

C029 

A900 

LDA 

#400 

C02B 

3D00C1 

STA 

4C100 

C02E 

A5CB 

LDA 

4CB 

C030 

18 

CLC 


C031 

C904 

CMP 

#404 

C033 

D00F 

BNE 

4C044 

C035 

18 

CLC 


C036 

AD20D0 

LDA 

4D020 

C039 

290F 

AND 

#40F 

C03B 

6901 

ADC 

#401 

C03D 

8D20D0 

STA 

4D020 

C049 

A900 

LDA 

#400 

C042 

F00F 

BEQ 

4C053 

C044 

C905 

CMP 

#405 

C046 

D00B 

BNE 

4C053 

C048 

18 

CLC 


C049 

AD21D0 

LDA 

4D021 

C04C 

290F 

AND 

#40 F 

C04E 

6901 

ADC 

#401 

C050 

8D21D0 

STA 

4D021 

C053 

4C31EA 

JMP 

4EA31 


SET IRQ COINTER TO ZERO 


DISABLE ENTRY 
RESTORE CINV TO 4EA31 


NEW IRQ ENRTY 

60 INTERRUPTS ??? 

NO - SKIP KEY SCAN 
YES - SO RESET COUNTER 

SFDX - CURRENT KEY PRESS 

FI ??? 


BDR COLOUR 

BITS 0-3 ONLY (0-15 DEC) 
INCREMENT IT 

ENSURE SKIP TAKEN 
SKIP BKD COLOUR 
BKD COLOUR 


CONTINUE NORMAL IRQ 


The basic loader: 

1 DATA 120, 169, 31, 141, 20, 3, 169, 19 

2 141 21 3 

2'DATA *169* 0, 141, 0, 193, 88, 96, 120, 
169, 49 

3 DATA 141, 20, 3, 169, 234, 141, 21, 3, 
88, 96 
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4 

DATA 238, 0, 

193, 

173, 0, 193, 201, 

60 

» 

208, 42 




5 

DATA 169, 0, 

141, 

0, 193, 165, 203, 

24 

i 

201 , 4 




6 

DATA 208, 15, 

24, 

173, 32, 208, 41, 

15 

> 

105, 1 




7 

DATA 141, 32, 

208 

, 169, 0, 240, 15, 

20 

1 , 

5, 208 




8 

DATA 11, 24, 

173, 

33, 208, 41, 15, 

105 

i 

1 , 141 




9 

DATA 33, 208, 

76, 

49, 234, 237, 61, 

3, 


170, 173 

10 FOR 1=49152 TO 49238:READ AsPOKE I,A: 

NEXT I 

The irq vector can be used to great advantage. One common use is to 
provide interrupt driven music (see The Companion to the Com¬ 
modore 64 pub. by Pan/PCN) and as in the utility to make the function 
keys programmable (Chapter 4). 


Simple program protection 

Some basics include commands to 'unlist' or generate protected files; 
the 64's, however, does not. In order to protect our software we have 
to resort to programming tricks. 

There are many ways to afford a program some degree of protection 
from unauthorized change. Most of these are well known and do little 
to prevent the experienced user from gaining access. Chapter 1 
showed how the link addresses could be modified to make program 
lines invisible and list out of sequence. Another way to hide areas of 

code is to end lines with a rem tdelhdeu ." sequence. On listing, the 

'deletes' will erase characters to their left. Most other techniques 
require a program to be run. 

Once a program has been run we can destroy some of the vectors 
from $0300 to $0333. These include the print tokens link, iqplop, which 
could be directed to, say, print syntax error’ at $af@8, the save vector at 
isave to prevent saving and also disable the run/stop at istop. We could 
also put a specified value somewhere in memory which, if not found, 
will cause the program to crash, erase itself or even perform a cold 
boot of the system. Unfortunately (or perhaps fortunately) any basic 
program can be loaded without being run. To produce programs 
which auto-run on loading requires knowledge of both machine code 
and the operating system of the 64 (see chain in Chapter 8). Nearly all 
commercial software uses a number of levels of protection, one of 
which is usually auto-running. We have covered a number of ways to 
accomplish this for your own software in Chapter 2, but purposely 
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leave out many of the techniques used by commercial software 
houses. (Remember it is illegal to reproduce commercial software.) 

Commodore Computing International Volume 2 No. 11 has an article 
on program protection. It contains the usual: 

DISABLE RUN/STOP POKE 808,251 

DISABLE LIST POKE 774,131: POKE 775,164 

DISABLE SAVE POKE 818,131: POKE 819,164 

The first simply bypasses the test by jumping to the end of the routine 
(RTS). The latter two jump to 'ready for basic'. Similar changes may be 
made to run/restore at nminv (see Chapter 6). The article does give a 
program to generate auto-run programs from your own code. If you 
are interested then, as the program is copyrighted, we suggest you get 
hold of a copy of the magazine. A further tape protection idea was 
given in Commodore User Volume 1 No.10. 


Specified input 

One of the most difficult and time-consuming tasks in producing 
software for use by others is in making it 'crash-proof', basic does not 
allow the programmer to specify which keys are valid during input. The 
results of incorrect entries in type, size or number can spoil a well- 
thought-out, pleasing display or even crash the program. The way 
round this problem is to write your own input routine. 

Commodore Horizons magazine of February 1984 published a very 
good machine code 'Keyscan' input program written by Adrian War- 
man which does just about everything you could ask for. We see little 
point in re-inventing the wheel, so we suggest that you read that 
article. However, we have approached the problem from a different 
angle and produced a simple routine entirely in basic. This is intended 
to be called when input is required. The type of input expected is set 
using the variable 'F' which is set to 0 for a real number, 1 for an integer 
and 2 for a string. Strings may contain commas and quotes. Editing an 
input may only be carried by using the delete key. The returned value 
may, if required, be converted to a number by a simple valo. If the 
routine is to be used more than once, a$ must be emptied by: a$="" 
before each use. 

60000- Generate a flashing cursor. 

60030 If it is a delete check chars are there to be removed. 

60040 'Return' marks end of input and the resulting string a$ is passed 
back to the main program. 

60050 Real numbers. 

60060 Integer only. 

60070 String. 

60090 Update the display and wait for next char. 
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60110- Real numbers may begin with + or - and may contain only 
numerals and a decimal point. 

60170- As for real but may not have a decimal point and must lie in the 
range given. 

60230- Allows any of the standard alphanumerics. To provide for lower 
case mode where uppercase characters have their high bit set 
some graphics are permitted (128+32 to 128 + 64). 

60000 POKE 204,0:POKE 207,0 
60010 GET Y*:IF Y*=" H GOTO 60000 
60020 A=LEN<A*) 

60030 IF Y*=CHR*<20> AND A>0 THEN A*=LEF 

T*<A*,A-1 ) .-GOTO 60090 

60040 IF Y*=CHR*<13> GOTO 60100 

60050 IF F=0 THEN GOSUB 60110:GOTO 60090 

60060 IF F=1 THEN GOSUB 60170:GOTO 60090 

60070 IF F=2 THEN GOSUB 60230:GOTO 60090 

60080 GOTO 60000 

60090 PRINT Y$;:GOTO 60000 

60100 RETURN 

60110 REM REAL 

60120 IF Y*=“+" OR Y*=“-" AND A=0 THEN 
A*=Y*:GOTO 60160 

60130 IF Y$>"/" AND Y*<":" THEN A*=A*+Y* 

:GOTO 60160 

60140 IF Y$="." THEN A$=A$+Y$:GOTO 60160 
60150 Y$= M " 

60160 RETURN 
60170 REM INTEGER 

60180 IF Y*="+" OR Y*="-“ AND A=0 THEN 
A*=Y*:GOTO 60220 

60190 IF Y*>“/" AND Y*<“: M THEN A*=A*+Y* 

:GOTO 60220 

60200 IF UAL<A*>>32767 OR UAL<A*><-32768 
THEN A*=LEFT*<A*,A):GOTO 60220 
60210 Y$= n * 

60220 RETURN 
60230 REM STRING 

60240 IF <ASC<Y*> AND 127X32 OR (ASC(Y$ 

) AND 127)>95 THEN Y$=“":GOTO 60260 
60250 A*=A*+Y* 

60260 RETURN 

The above is intended only as a starting point. Obvious improvements 
would be to allow the use of the cursor keys by manipulating the string 
with lefts, mids and rights. The maximum length of the string field 
could also be set to prevent overwriting an existing display. 
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Invisible characters 

Most readers will no doubt be aware that character data may be 
directly POKEd to the screen. They will also have discovered that on 
occasions no effect is apparent. A screen character (normal mode) 
takes on the colour set in the corresponding location of the colour 
map (SD 800 on). If no character has been printed at this location nor a 
colour set since the last clear screen the adopted colour is that of the 
background. To see if the character is there, simply move the cursor to 
the location. 

We can use this to good effect by making displays change quite 
quickly from basic with just pokes to the colour map. It is important to 
remember that on an input even though the character cannot be seen it 
is still there and active. 

PET—64/64—PET 

Commodore has maintained almost complete compatibility in the 
storage of programs on tape and to a lesser degree on disk. A tape 
prepared on any machine may be read by another. The 1541 disk drive 
uses an identical format to the 4040 unit. It can also read 2040 and 3040 
formatted disks, but will corrupt these disks if it writes to them. You 
may also find that you get write problems on 4040 formatted disks. This 
compatibility does not mean to say that a program written for one 
machine will work directly on another. 

A basic program saved on a pet can be loaded and run directly on the 
64, whereas the reverse is not true. A word of warning to cassette 
users that the secondary address of 3 available on the 64 is not recog¬ 
nised by the pet. This is due to the different start address of basic on 
the two machines ($0401 on pet). Loading a program with a secondary 
address of zero will not allow it to load below the current start of basic. 
This means that on the 64 the load will be forced to $0801. A 64 program 
will normally have a start greater than $0401 and will go in above the start 
of basic and is not directly usable. 

There are two ways to overcome the problem. The first is raise the 
start of basic on the pet to $0801 by (basic 2 & 4) 

POKE 41,08: POKE 2048,0: NEW 

before loading. All pokes to the screen will have to be adjusted for the 
pet screen which starts at $8000 ( 32768 ) and all pokes to the colour map 
removed. Defining the start of the screen with a variable and using 
offsets from this simplifies the conversion. The easiest way is to avoid 
using anything other than print for output. 

The second technique involves configuring the 64 to look like a pet- 
basic at $0401 and the screen in bank 2 at $8000. The Programmer's 
Reference Guide (Chapter 3, 'Screen Memory') tells us how to relocate 
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the screen by setting bits 7 to 4 of $D0i8 (53272), remembering to tell the 
screen editor where it has gone by setting hibase ($0288/648). The start of 
basic is lowered by setting txttab and the top of memory set using 
memtop and string storage with fretop. The following program if run will 
carry out the necessary changes, syntax errors may result until the 
screen is cleared due to invisible characters. 

10 POKE 51,000 sPOKE 55,000 
20 POKE 52,128sPOKE 56,128 
30 POKE 56578,PEEK(56578) OR 3:P0KE56576 
,<PEEK<56576)AND252) OR 1 

40 POKE 53272,<PEEK(53272)AND15)OR0sPOKE 
648,128sPOKE 1024,0sPOKE 44,4sNEW 


There are some very sophisticated pet emulators on the market and 
even cross-assemblers for machine code and cross-compilers for basic. 
If a lot of your work is in an area where portability is important, it might 
well be worthwhile pursuing the matter. 


Load and run 

Pressing shift and run/stop will load and run the first program on tape 
providing it is in basic. This may also be performed by: 

POKE 631,131: POKE 198,1 

The advantage of the second is that it can be used from within a 
program to avoid the problems associated with chaining if variables are 
not to be retained. Less well known is its use with disk. The format is: 

LOAD"PROG",8:[Press SHIFT & RUN/STOP] 


Disk bugs 

When using sequential data files problems may be encountered if the 
same logical file number is used for both read and write operations. 
Typically, error 63 file exists is reported. The only way to be sure is to 
use different numbers for input and output. 

A less annoying feature is that null strings written to a data file are 
ignored on reading back. One way to overcome the problem is to 
always default null strings to a set value which is recognized on reading 
back. Alternatively, get# may be used to pick up returns and commas (a 
bit laborious). 
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APPENDIX A: Storage of basic text 

Standard CBM 64 tokens 


hex 

dec 


hex 

dec 


hex 

dec 


hex 

dec 


$20 

32 

sp 

$40 

64 

@ 

$80 

128 

END 

$A6 

166 

SPC( 

$21 

33 

i 

$41 

65 

A 

$81 

129 

FOR 

$A7 

167 

THEN 

$22 

34 

/ r 

$42 

66 

B 

$82 

130 

NEXT 

$A8 

168 

NOT 

$23 

35 

# 

$43 

67 

C 

$83 

131 

DATA 

$A9 

169 

STEP 

$24 

36 

$ 

$44 

68 

D 

$84 

132 

INPUT# 

$AA 

170 

+ add 

$25 

37 

% 

$45 

69 

E 

$85 

133 

INPUT 

SAB 

171 

- minus 

$26 

38 

& 

$46 

70 

F 

$86 

134 

DIM 

SAC 172 

* multi 

$27 

39 

' 

$47 

71 

C 

$87 

135 

READ 

$AD 173 

/ div 

$28 

40 

( 

$48 

72 

H 

$88 

136 

LET 

$AE 

174 

| power 

$29 

41 

) 

$49 

73 

1 

$89 

137 

GOTO 

$AF 

175 

AND 

$2A 

42 

★ 

$4A 

74 

J 

$8A 

138 

RUN 

$B0 

176 

OR 

$2B 

43 

+ 

$4B 

75 

K 

$8B 

139 

IF 

$B1 

177 

> gt 

$2C 

44 

, 

$4C 

76 

L 

$8C 

140 

RESTORE 

$B2 

178 

= eq 

$2D 

45 

- 

$4D 

77 

M 

$8D 

141 

GOSUB 

$B3 

179 

<lt 

$2E 

46 


$4E 

78 

N 

$8E 

142 

RETURN 

$B4 

180 

SGN 

$2F 

47 

/ 

$4F 

79 

O 

$8F 

143 

REM 

$B5 

181 

INT 

$30 

48 

0 

$50 

80 

P 

$90 

144 

STOP 

$B6 

182 

ABS 

$31 

49 

1 

$51 

81 

Q 

$91 

145 

ON 

$B7 

183 

USR 

$32 

50 

2 

$52 

82 

R 

$92 

146 

WAIT 

$B8 

184 

FRE 

$33 

51 

3 

$53 

83 

S 

$93 

147 

LOAD 

$B9 

185 

POS 

$34 

52 

4 

$54 

84 

T 

$94 

148 

SAVE 

$BA 

186 

SQR 

$35 

53 

5 

$55 

85 

U 

$95 

149 

VERIFY 

$BB 

187 

RND 

$36 

54 

6 

$56 

86 

V 

$96 

150 

DEF 

$BC 

188 

LOG 

$37 

55 

7 

$57 

87 

w 

$97 

151 

POKE 

$BD 189 

EXP 

$38 

56 

8 

$58 

88 

X 

$98 

152 

PRINT# 

$BE 

190 

COS 

$39 

57 

9 

$59 

89 

Y 

$99 

153 

PRINT 

$BF 

191 

SIN 

$3A 

58 


$5A 

90 

z 

$9A 

154 

CONT 

$C0 

192 

TAN 

$3B 

59 

; 

$5B 

91 

[ 

$9B 

155 

LIST 

$C1 

193 

ATN 

$3C 

60 

< 

$5C 

92 

£ 

$9C 

156 

CLR 

$C2 

194 

PEEK 

$3D 

61 

= 

$5D 

93 

] 

$9D 

157 

CMD 

$C3 

195 

LEN 

$3E 

62 

> 

$5E 

94 

t 

$9E 

158 

SYS 

$C4 

196 

STR$ 

$3F 

63 

? 

$5F 

95 

4 - 

$9F 

159 

OPEN 

$C5 

197 

VAL 







$A0 

160 

CLOSE 

$C6 

198 

ASC 







$A1 

161 

GET 

$C7 

199 

CHR$ 







$A2 

162 

NEW 

$C8 

200 

LEFTS 







$A3 

163 

TAB( 

$C9 

201 

RIGHTS 







$A4 

164 

TO 

$CA 202 

MID$ 







$A5 

165 

FN 

$CB 203 

GO 
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Extended basic tokens 


hex 

dec 


hex 

dec 


$cc 

204 

OFF 

$E6 

230 

RESET 

$CD 

205 

KEY 

$E7 

231 

CHAIN 

$CE 

206 

DOKE 

$E8 

232 

LOMEM 

$CF 

207 

TEN 

$E9 

233 

HIMEM 

$D0 

208 

TWO 

$EA 

234 

INKEYS 

$D1 

209 

HEX 

$EB 

235 

MEM 

$D2 

210 

BIN 

$EC 

236 

APPEND 

$D3 

211 

OLD 

$ED 

237 

TROFF 

$D4 

212 

COLOUR 

$EE 

238 

unused 

$D5 

213 

WRITE 

$EF 

239 

unused 

$D6 

214 

CCOTO 

$F0 

240 

unused 

$D7 

215 

CGOSUB 

$F1 

241 

unused 

$D8 

216 

PLOT 

$F2 

242 

unused 

$D9 

217 

ENTER 

$F3 

243 

unused 

$DA 

218 

DUMP 

$F4 

244 

unused 

$DB 

219 

RENUM 

$F5 

245 

unused 

$DC 

220 

DELETE 

$F6 

246 

unused 

$DD 

221 

MERGE 

$F7 

247 

DEEK 

$DE 

222 

CODER 

$F8 

248 

unused 

$DF 

223 

AUTO 

$F9 

249 

unused 

$E0 

224 

PROC 

$FA 

250 

unused 

$E1 

225 

DPROC 

$FB 

251 

unused 

$E2 

256 

EPROC 

$FC 

252 

unused 

$E3 

227 

POP 

$FD 

253 

unused 

$E4 

228 

QUIT 

$FE 

254 

unused 

$E5 

229 

TRACE 
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APPENDIX B: Hex to decimal and decimal to hex converter 


hex 

decimal 
low high 

hex 

decimal 
low high 

hex 

decimal 
low high 

$00 

0 

0 

$29 

41 

10496 

$52 

82 

20992 

$01 

1 

256 

$2A 

42 

10752 

$53 

83 

21248 

$02 

2 

512 

$2B 

43 

11008 

$54 

84 

21504 

$03 

3 

768 

$2C 

44 

11264 

$55 

85 

21760 

$04 

4 

1024 

$2D 

45 

11520 

$56 

86 

22016 

$05 

5 

1280 

$2E 

46 

11776 

$57 

87 

22272 

$06 

6 

1536 

$2F 

47 

12032 

$58 

88 

22528 

$07 

7 

1792 

$30 

48 

12288 

$59 

89 

22784 

$08 

8 

2048 

$31 

49 

12544 

$5A 

90 

23040 

$09 

9 

2304 

$32 

50 

12800 

$5B 

91 

23296 

$0A 

10 

2560 

$33 

51 

13056 

$5C 

92 

23552 

$0B 

11 

2816 

$34 

52 

13312 

$5D 

93 

23808 

$0C 

12 

3072 

$35 

53 

13568 

$5E 

94 

24064 

$0D 

13 

3328 

$36 

54 

13824 

$5F 

95 

24320 

$0E 

14 

3584 

$37 

55 

14080 

$60 

96 

24576 

$0F 

15 

3840 

$38 

56 

14336 

$61 

97 

24832 

$10 

16 

4096 

$39 

57 

14592 

$62 

98 

25088 

$11 

17 

4352 

$3A 

58 

14848 

$63 

99 

25344 

$12 

18 

4608 

$3B 

59 

15104 

$64 

100 

25600 

$13 

19 

4864 

$3C 

60 

15360 

$65 

101 

25856 

$14 

20 

5120 

$3D 

61 

15616 

$66 

102 

26112 

$15 

21 

5376 

$3E 

62 

15872 

$67 

103 

26368 

$16 

22 

5632 

$3F 

63 

16128 

$68 

104 

26624 

$17 

23 

5888 

$40 

64 

16384 

$69 

105 

26880 

$18 

24 

6144 

$41 

65 

16640 

$6A 

106 

27136 

$19 

25 

6400 

$42 

66 

16896 

$6B 

107 

27392 

$1A 

26 

6656 

$43 

67 

17152 

$6C 

108 

27648 

$1B 

27 

6912 

$44 

68 

17408 

$6D 

109 

27904 

$1C 

28 

7168 

$45 

69 

17664 

$6E 

110 

28160 

$1D 

29 

7424 

$46 

70 

17920 

$6F 

111 

28416 

$1E 

30 

7680 

$47 

71 

18176 

$70 

112 

28672 

$1F 

31 

7936 

$48 

72 

18432 

$71 

113 

28928 

$20 

32 

8192 

$49 

73 

18688 

$72 

114 

29184 

$21 

33 

8448 

$4A 

74 

18944 

$73 

115 

29440 

$22 

34 

8704 

$4B 

75 

19200 

$74 

116 

29696 

$23 

35 

8960 

$4C 

76 

19456 

$75 

117 

29952 

$24 

36 

9216 

$4D 

77 

19712 

$76 

118 

30208 

$25 

37 

9472 

$4E 

78 

19968 

$77 

119 

30464 

$26 

38 

9728 

$4F 

79 

20224 

$78 

120 

30720 

$27 

39 

9984 

$50 

80 

20480 

$79 

121 

30976 

$28 

40 

10240 

$51 

81 

20736 

$7A 

122 

31232 


hex decimal 
low high 

$7B 123 31488 

$7C 124 31744 

$7D 125 32000 

$7E 126 32256 

$7F 127 32512 

$80 128 32768 

$81 129 33024 

$82 130 33280 

$83 131 33536 

$84 132 33792 

$85 133 34048 

$86 134 34304 

$87 135 34560 

$88 136 34816 

$89 137 35072 

$8A 138 35328 

$8B 139 35584 

$8C 140 35840 

$8D 141 36096 

$8E 142 36352 

$8F 143 36608 

$90 144 36864 

$91 145 37120 

$92 146 37376 

$93 147 37632 

$94 148 37888 

$95 149 38144 

$96 150 38400 

$97 151 38656 

$98 152 38912 

$99 153 39168 

$9A 154 39424 

$9B 155 39680 

$9C 156 39936 

$9D 157 40192 
$9E 158 40448 

$9F 159 40704 

$A0 160 40960 
$A1 161 41216 

$A2 162 41472 

$A3 163 41728 
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hex 

decimal 
low high 

hex 

decimal 
low high 

hex 

decimal 
low high 

hex 

decimal 
low high 

$A4 

164 

41984 

$BB 

187 

47872 

SD2 

210 

53760 

$E9 

233 

59648 

$A5 

165 

42240 

SBC 

188 

48128 

SD3 

211 

54016 

SEA 

234 

59904 

$A6 

166 

42496 

SBD 

189 

48384 

$D4 

212 

54272 

SEB 

235 

60160 

$A7 

167 

42752 

SBE 

190 

48640 

SD5 

213 

54528 

SEC 

236 

60416 

$A8 

168 

43008 

SBF 

191 

48896 

SD6 

214 

54784 

SED 

237 

60672 

$A9 

169 

43264 

$C0 

192 

49152 

SD7 

215 

55040 

SEE 

238 

60928 

$AA 

170 

43520 

SCI 

193 

49408 

SD8 

216 

55296 

SEE 

239 

61184 

SAB 

171 

43776 

$C2 

194 

49664 

SD9 

217 

55552 

$F0 

240 

61440 

SAC 

172 

44032 

$C3 

195 

49920 

SDA 

218 

55808 

$F1 

241 

61696 

SAD 

173 

44288 

SC4 

196 

50176 

SDB 

219 

56064 

$F2 

242 

61952 

SAE 

174 

44544 

SC5 

197 

50432 

SDC 

220 

56320 

$F3 

243 

62208 

SAF 

175 

44800 

SC6 

198 

50688 

SDD 

221 

56576 

SFA 

244 

62464 

$B0 

176 

45056 

$C7 

199 

50944 

SDE 

222 

56832 

SF5 

245 

62720 

$B1 

177 

45312 

SC8 

200 

51200 

SDF 

223 

57088 

$F6 

246 

62976 

$B2 

178 

45568 

SC9 

201 

51456 

$E0 

224 

57344 

$F7 

247 

63232 

$B3 

179 

45824 

SCA 

202 

51712 

$E1 

225 

57600 

$F8 

248 

63488 

$B4 

180 

46080 

SCB 

203 

51968 

$E2 

226 

57856 

$F9 

249 

63744 

$B5 

181 

46336 

see 

204 

52224 

$E3 

227 

58112 

SFA 

250 

64000 

SB6 

182 

46592 

SCD 

205 

52480 

$E4 

228 

58368 

SFB 

251 

64256 

$B7 

183 

46848 

SCE 

206 

52736 

$E5 

229 

58624 

$FC 

252 

64512 

SB8 

184 

47104 

SCF 

207 

52992 

$E6 

230 

58880 

SFD 

253 

64768 

SB9 

185 

47360 

$D0 

208 

53248 

$E7 

231 

59136 

SEE 

254 

65024 

$BA 

186 

47616 

$D1 

209 

53504 

$E8 

232 

59392 

SFF 

255 

65280 


APPENDIX C: Machine code mnemonics and hex values 

6510 OP-CODES 

The tables below are a quick reference guide only and for more 
detailed information a 6502 assembler book should be consulted. 

The tables should be read row then column. If in doubt, remember 
lda immediate mode is $A9. The following abbreviations have been 
used: 

#-immediate mode A=accumulator 

$- absolute address X=X index register 

Z-zeropage Y=Y index register 

I - indirect address 
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0 

1 2 

4 

5 

6 

0 BRK 

ORA(l,X) 


ORAZ 

ASLZ 

1 BPL 

ORA (l),Y 


ORA Z,X 

ASL Z,X 

2 JSR 

AND (l,X) 

BITZ 

AND Z 

ROLZ 

3 BMI 

AND (l),Y 


AND Z,X 

ROL Z,X 

4 RTI 

EOR (l,X) 


EOR Z 

LSRZ 

5 BVC 

FOR (l),Y 


EOR Z,X 

LSR Z,X 

6 RTS 

ADC (l,X) 


ADC Z 

RORZ 

7 BVS 

ADC (1),Y 


ADC Z,X 

ROR Z,X 

8 

STA (l,X) 

STY Z 

STAZ 

STXZ 

9 BCC 

STA (l),Y 

STY Z ; X 

STAZ,X 

STX Z,Y 

A LDY# 

LDA (l,X) LDX # 

LDY Z 

LDAZ 

LDX Z 

B BCS 

LDA (l),Y 

LDY Z,X 

LDAZ,X 

LDX Z,Y 

C CPY# 

CMP (1 ,X) 

CPY Z 

CMP Z 

DEC Z 

D BNE 

CMP (l),Y 


CMP Z,X 

DEC Z,X 

E CPX# 

SBC (l,X) 

CPXZ 

SBC Z 

INC Z 

F BEQ 

SBC (l),Y 


SBC Z,X 

INC Z,X 


8 

9 

A 

C 

D 

E 

0 PHP 

ORA# 

ASL A 


ORA $ 

ASL $ 

1 CLC 

ORA $,Y 



ORA $,X 

ASL $,X 

2 PLP 

AND# 

ROL A 

BIT $ 

AND $ 

ROL $ 

3 SEC 

AND $,Y 



AND $,X 

ROL $,X 

4 PHA 

EOR# 

LSR A 

JMP $ 

EOR $ 

LSR $ 

5 CLI 

EOR $,Y 



EOR $,X 

LSR $,X 

6 PLA 

ADC# 

ROR A 

JMPI 

ADC $ 

ROR $ 

7 SEI 

ADC $,Y 



ADC $,X 

ROR $,X 

8 DEY 


TXA 

STY $ 

STA $ 

STX $ 

9 TYA 

STA $,Y 

TXS 


STA $,X 


ATAY 

LDA# 

TAX 

LDY $ 

LDA $ 

LDX $ 

BCLV 

LDA $,Y 

TSX 

LDY $,X 

LDA $,X 

LDX $,Y 

C INY 

CMP# 

DEX 

CPY $ 

CMP $ 

DEC $ 

DCLD 

CMP$,Y 



CMP $,X 

DEC $,X 

E INX 

SBC# 

NOP 

CPX$ 

SBC $ 

INC $ 

FSED 

SBC $,Y 



SBC $,X 

INC $,X 


APPENDIX D: basic loader for Supermon 

This is the basic program to produce Jim Butterfield's Supermon moni¬ 
tor. Type it in and save it before running. There are lots of numbers so 
it is easy to make a mistake. 
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We have put in some checksums to help isolate errors. Once loaded 
correctly you will be able to save the machine code version from the 
monitor itself. Instructions for using Supermon are given in Appendix E. 

Supermon normally loads to the top of basic memory. We have 
modified it to sit at jcaao on to allow you to enter the code for the 
utility. Once you have it up and running, you can use Supermon to 
modify itself to sit anywhere. There are addresses which require 
changing so we have included a relocater program after the loader. 


The Loader 

10 A=49152:C=0 
20 READB:IFB=-1THEN40 
38 POKEA,B:A=A+1:C=C+ B:GOTO20 
40 IFC=27914THEN60 

50 PRINT"DATA ERROR IN 1000 - 1300":END 
60 C— 0 

70 READB:IFB=-1THEN90 
80 POKEA,B:A=A+1:C=C+B:GOTO70 
90 IFC=26078THEN110 

100 PRINT"DATA ERROR IN 1310 - 1600":END 
110 C=0 

120 READB:IFB=-1THEN140 

130 POKEA,B:A=A+1:C=C+B:GOTO120 

140 IFO26897THEN160 

150 PRINT"DATA ERROR IN 1610 - 1900":END 
160 C—0 

170 READB:IFB=-1THEN190 

180 POKEA,8:A=A+1:C=C+B:GOTO170 

190 IFC=280 55THEN210 

200 PRINT-DATA ERROR IN 1910 - 2200":END 
210 C = 0 

220 READB:IFB=-1THEN240 

230 POKEA,B:A=A+1:C=C+B:GOTO220 

240 IFC=25343THEN260 

250 PRINT"DATA ERROR IN 2210 - 2500":END 
260 C=0 

270 READB:IFB=-1THEN290 

280 POKEA,B:A=A+1:C=C+B:GOTO270 

290 IFC=25432THEN310 

300 PRINT*DATA ERROR IN 2510 - 2800":END 
310 C=0 

320 READB:IFB=-1THEN340 

330 POKEA,B:A=A+1:C=C+ B:GOTO320 

340 IFC=27324THEN360 

350 PRINT"DATA ERROR IN 2810 - 3100":END 
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360 c =0 

370 READB:IFB=-1THEN390 

380 POKEA,B:A=A+1:C=C+B:GOTO370 

390 IFC=25335THEN410 

400 PRINT"DATA ERROR IN 3110 - 3400“:END 
410 C=0 

420 READB:IFB=-1THEN440 

430 POKEA,B: A=A+1:C=C+B:GOTO420 

440 IFC=28057THEN460 

450 PRINT'DATA ERROR IN 3410 - 3700":END 
460 C=0 

470 READB:IFB=-1THEN490 

480 POKEA,B:A=A+1:C=C+B:G0T0470 

490 IFC=20514THEN510 

500 PRINT"DATA ERROR IN 3710 - 4000":END 
510 C=0 

520 READB:IFB=-1THEN540 

530 POKEA,B:A=A+1:C=C+B:GOTO520 

540 IFC=22061THEN560 

550 PRINT-DATA ERROR IN 4010 - 4290":END 
560 PRINT"DATA CORRECT":PRINT 
570 PRINT"SYS49152 TO USE" 

580 END 

1000 DATA76,233,192,255,0,0,255 
1010 DATA255,0,0,255,255,0,0 
1020 DATA255,255,0,0,255,255,0 
1030 DATA©,255,255,0,0,255,255 
1040 DATA0,0,255,255,0,0,255 
1050 DATA255,0,0,255,255,0,0 
1060 DATA255,255,0,0,255,255,0 
1070 DATA0,255,255,0,0,255,255 
1080 DATA0,0,255,255,0,0,255 
1090 DATA255,0,0,255,255,0,0 
1100 DATA255,255,0,0,255,255,0 
1110 DATA0,255,255,0,0,255,255 
1120 DATA0,0,255,255,0,0,255 
1130 DATA255,0,0,255,255,0,0 
1140 DATA255,255,0,0,255,255,0 
1150 DATA0,255,255,0,0,255,255 
1160 DATA0,0,255,255,0,0,255 
1170 DATA255,0,0,255,255,0,0 
1180 DATA255,255,128,0,255,255,0 
1190 DATA0,255,255,0,0,255,255 
1200 DATA0,0,255,255,0,0,255 
1210 DATA255,0,0,255,255,0,0 
1220 DATA255,255,0,0,255,255,0 
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1230 DATA0,255,255,0,0,255,255 
1240 DATA0,0,255,255,0,0,255 
1 250 DATA255,0,0,255,255,0,0 
1260 DATA255,255,0,0,255,255,0 
1270 DATA0,255,255,0,0,255,255 
1280 DATA0,0,255,255,0,0,255 
1290 DATA255,0,0,255,255,0,0 
1300 DATA255,255,0,0,255,255,0,-l 
1310 DATA0,255,255,0,0,255,255 
1320 DATA0,0,255,255,0,0,255 
1330 DATA255,0,169,160,133,56,173 
1340 DATA230,200,141,22,3,173,231 
1350 DATA200,141,23,3,169,128,32 
1360 DATA144,255,0,216,104,141,62 
1370 DATA2,104,141,61,2,104,141 
1380 DATA60,2,104,141,59,2,104 
1390 DATA170,104,168,56,138,233,2 
1400 DATA141,58,2,152,233,0,141 
1410 DATA57,2,186,142,63,2,32 
1420 DATA87,198,162,66,169,42,32 
1430 DATA87,195,169,82,208,52,230 
1440 DATA193,208,6,230,194,208,2 
1450 DATA230,38,96,32,207,255,201 
1460 DATA13,208,248,104,104,169,154 
1470 DATA32,210,255,169,9,133,38 
1480 DATA162,13,169,46,32,87,195 
1490 DATA169,159,32,218,255,32,62 
1508 DATA193,201,46,240,249,201,32 
1510 DATA240,245,162,14,221,183,200 
1520 DATA208,12,138,10,170,189,199 
1530 DATA200,72,189,198,200,72,96 
1540 DATA202,16,236,76,237,195,165 
1550 DATA193,141,58,2,165,194,141 
1560 DATA57,2,96,169,8,133,29 
1570 DATA160,0,32,84,198,177,193 
1580 DATA32,72,195,32,51,193,198 
1590 DATA29,208,241,96,32,136,1 95 
1600 DATA144,11,162,0,129,193,193,-1 
1610 DATA193,240,3,76,237,195,32 
1620 DATA51,193,198,29,96,169,59 
1630 DATA133,193,169,2,133,194,169 
1640 DATA5,96,152,72,32,87,198 
1650 DATA104,162,46,76,87,195,169 
1660 DATA154,32,210,255,162,0,189 
1670 DATA234,200,32,210,255,232,224 
1680 DATA22,208,245,160,59,32,194 



Appendices 281 


1690 DATAl93,173,57,2,32,72,195 
1700 DATAl73,58,2,32,72,195,32 
1710 DATAl83,193,32,141,193,240,92 
1 720 DATA32,62,193,32,121,195,144 
1730 DATA51,32,105,195,32,62,193 
1 740 DATA32,121,195,144,40,32,105 
1750 DATAl95,169,154,32,210,255,32 
1760 DATA225,255,240,60,166,38,208 
1770 DATA56,165,195,197,193,165,196 
1780 DATA229,194,144,46,160,58,32 
1790 DATAl94,193,32,65,195,32,139 
1800 DATAl93,240,224,76,237,195,32 
1810 DATAl21,195,144,3,32,128,193 
1820 DATA32,183,193,208,7,32,121 
1830 DATAl95,144,235,169,8,133,29 
1840 DATA32,62,193,32,161,193,208 
1850 DATA248,76,71,193,32,207,255 
1860 DATA201,13,240,12,201,32,208 
1870 DATA209,32,121,195,144,3,32 
1880 DATAl28,193,169,154,32,210,255 
1890 DATAl74,63,2,154,120,173,57 
1900 DATA2,72,173,58,2,72,173,-1 
1910 DATA59,2,72,173,60,2,174 
1920 DATA61,2,172,62,2,64,169 
1930 DATAl54,32,210,255,174,63,2 
1940 DATAl54,108,2,160,160,1,132 
1950 DATAl86,132,185,136,132,183,132 
I960 DATAl44,132,147,169,64,133,187 
1970 DATAl69,2,133,188,32,207,255 
1980 DATA201,32,240,249,201,13,240 
1990 DATA56,201,34,208,20,32,207 
2000 DATA255,201,34,240,16,201,13 
2010 DATA240,41,145,187,230,183,200 
2020 DATAl92,16,208,236,76,237,195 
2030 DATA32,207,255,201,13,240,22 
2040 DATA201,44,208,220,32,136,195 
2050 DATA41,15,240,233,201,3,240 
2060 DATA229,133,186,32,207,255,201 
2070 DATAl3,96,108,48,3,108,50 
2080 DATA3,32,150,194,208,212,169 
2090 DATAl54,32,210,255,169,0,32 
2100 DATA239,194,165,144,41,16,208 
2110 DATAl96,76,71,193,32,150,194 
2120 DATA201,44,208,186,32,121,195 
2130 DATA32,105,195,32,207,255,201 
2140 DATA44,208,173,32,121,195,165 
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2159 DATA193,133,174,165,194,133,175 

2160 DATA32,105,195,32,207,255,201 
2170 DATA13,208,152,169,154,32,210 
2180 DATA255,32,242,194,76,71,193 
2190 DATA165,194,32,72,195,165,193 
2200 DATA72,74,74,74,74,32,96,-1 
2210 DATA195,170,104,41,15,32,96 
2220 DATA195,72,138,32,210,255,104 
2230 DATA76,210,255,9,48,201,58 
2240 DATA144,2,105,6,96,162,2 

2250 DATA181,192,72,181,194,149,192 
2260 DATA104,149,194,202,208,243,96 
2270 DATA32,136,195,144,2,133,194 
2280 DATA32,136,195,144,2,133,193 
2290 DATA96,169,0,133,42,32,62 
2300 DATA193,201,32,208,9,32,62 
2310 DATA193,201,32,208,14,24,96 
2320 DATA32,175,195,10,10,10,10 
2330 DATA133,42,32,62,193,32,175 
2340 DATA195,5,42,56,96,201,58 
2350 DATA144,2,105,8,41,15,96 
2360 DATA162,2,44,162,0,180,193 
2370 DATA208,8,180,194,208,2,230 
2380 DATA38,214,194,214,193,96,32 
2390 DATA62,193,201,32,240,249,96 
2400 DATA169,0,141,0,1,32,204 
2410 DATA195,32,143,195,32,124,195 
2420 DATA144,9,96,32,62,193,32 
2430 DATA121,195,176,222,174,63,2 
2440 DATA154,169,154,32,210,255,169 
2450 DATA63,32,210,255,76,71,193 
2460 DATA32,84,198,202,208,250,96 
2470 DATA230,195,208,2,230,196,96 
2480 DATA162,2,181,192,72,181,39 
2490 DATA149,192,104,149,39,202,208 
2500 DATA243,96,165,195,164,196,56,-1 
2510 DATA233,2,176,14,136,144,11 
2520 DATA165,40,164,41,76,51,196 
2530 DATA165,195,164,196,56,229,193 
2540 DATA133,30,152,229,194,168,5 
2550 DATA30,96,32,212,195,32,105 
2560 DATA195,32,229,195,32,12,196 
2570 DATA32,229,195,32,47,196,32 
2580 DATA105,195,144,21,166,38,208 
2590 DATA100,32,40,196,144,95,161 
2600 DATA193,129,195,32,5,196,32 
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2618 DATA51,193,208,235,32,40,196 
2620 DATA24,165,30,101,195,133,195 
2630 DATA152,101,196,133,196,32,12 
2640 DATA196,166,38,208,61,161,193 
2650 DATA129,195,32,40,196,176,52 
2660 DATA32,184,195,32,187,195,76 
2670 DATA125,196,32,212,195,32,105 
2680 DATA195,32,229,195,32,105,195 
2690 DATA32,62,193,32,136,195,144 
2700 DATA20,133,29,166,38,208,17 
2710 DATA32,47,196,144,12,165,29 
2720 DATA129,193,32,51,193,208,238 
2730 DATA76,237,195,76,71,193,32 
2740 DATA212,195,32,105,195,32,229 
2750 DATA195,32,105,195,32,62,193 
2760 DATA162,0,32,62,193,201,39 
2770 DATA208,20,32,62,193,157,16 
2780 DATA2,232,32,207,255,201,13 
2790 DATA240,34,224,32,208,241,240 
2800 DATA28,142,0,1,32,143,195,-1 
2810 DATA144,198,157,16,2,232,32 
2820 DATA207,255,201,13,240,9,32 
2830 DATA136,195,144,182,224,32,208 
2840 DATA236,134,28,169,154,32,210 
2850 DATA255,32,87,198,162,0,160 
2860 DATA0,177,193,221,16,2,208 
2870 DATA12,200,232,228,28,208,243 
2880 DATA32,65,195,32,84,198,32 
2890 DATA51,193,166,38,208,141,32 
2900 DATA47,196,176,221,76,71,193 
2910 DATA32,212,195,133,32,165,194 
2920 DATA133,33,162,0,134,40,169 
2930 DATA147,32,210,255,q69,154,32 
2940 DATA210,255,169,22,133,29,32 
2950 DATA106,197,32,202,197,133,193 
2960 DATA132,194,198,29,208,242,169 
2970 DATA145,32,210,255,76,71,193 
2980 DATA160,44,32,194,193,32,84 
2990 DATA198,32,65,195,32,84,198 
3000 DATA162,0,161,193,32,217,197 
3010 DATA72,32,31,198,104,32,53 
3020 DATA198,162,6,224,3,208,18 
3030 DATA164,31,240,14,165,42,201 
3040 DATA232,177,193,176,28,32,194 
3050 DATA197,136,208,242,6,42,144 
3060 DATA14,189,42,200,32,165,198 
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3070 DATA189,48,200,240,3,32,165 
3080 DATA198,202,208,213,96,32,205 
3090 DATA197,170,232,208,1,200,152 
3100 DATA32,194,197,138,134,28,32,-1 
3110 DATA72,195,166,28,96,165,31 
3120 DATA56,164,194,170,16,1,136 
3130 DATA101,193,144,1,200,96,168 
3140 DATA74,144,11,74,176,23,201 
3150 DATA34,240,19,41,7,9,128 
3160 DATA74,170,189,217,199,176,4 
3170 DATA74,74,74,74,41,15,208 
3180 DATA4,160,128,169,0,170,189 
3190 DATA29,200,133,42,41,3,133 
3200 DATA31,152,41,143,170,152,160 
3210 DATA3,224,138,240,11,74,144 
3220 DATA8,74,74,9,32,136,208 
3230 DATA250,200,136,208,242,96,177 
3240 DATA193,32,194,197,162,1,32 
3250 DATA254,195,196,31,200,144,241 
3260 DATA162,3,192,4,144,242,96 
3270 DATA168,185,55,200,133,40,185 
3280 DATA119,200,133,41,169,0,160 
3290 DATA5,6,41,38,40,42,136 
3300 DATA208,248,105,63,32,210,255 
3310 DATA202,208,236,169,32,44,169 
3320 DATA13,76,210,255,32,212,195 
3330 DATA32,105,195,32,229,195,32 
3340 DATA105,195,162,0,134,40,169 
3350 DATA154,32,210,255,32,87,198 
3360 DATA32,114,197,32,202,197,133 
3370 DATA193,132,194,32,225,255,240 
3380 DATA5,32,47,196,176,233,76 
3390 DATA71,193,32,212,195,169,3 
3400 DATA133,29,32,62,193,32,161,-l 
3410 DATA193,208,248,165,32,133,193 
3420 DATA165,33,133,194,76,70,197 
3430 DATA197,40,240,3,32,210,255 
3440 DATA96,32,212,195,32,105,195 
3450 DATA142,17,2,162,3,32,204 
3460 DATA195,72,202,208,249,162,3 
3470 DATA104,56,233,63,160,5,74 
3480 DATA110,17,2,110,16,2,136 
3490 DATA208,246,202,208,237,162,2 
3500 DATA32,207,255,201,13,240,30 
3510 DATA201,32,240,245,32,208,199 
3520 DATA176,15,32,156,195,1 64,1 93 
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3530 DATAl32,194,133,193,169,48,157 
3540 DATAl6,2,232,157,16,2,232 
3550 DATA208,219,134,40,162,0,134 
3560 DATA38,240,4,230,38,240,117 
3570 DATAl62,0,134,29,165,38,32 
3580 DATA217,197,166,42,134,41,170 
3590 DATAl88,55,200,189,119,200,32 
3600 DATAl85,199,208,227,162,6,224 
3610 DATA3,208,25,164,31,240,21 
3620 DATAl65,42,201,232,169,48,176 
3630 DATA33,32,191,199,208,204,32 
3640 DATAl93,199,208,199,136,208,235 
3650 DATA6,42,144,11,188,48,200 
3660 DATAl89,42,200,32,185,199,208 
3670 DATAl81,202,208,209,240,10,32 
3680 DATAl84,199,208,171,32,184,199 
3690 DATA208,166,165,40,197,29,208 
3700 DATAl60,32,105,195,164,31,240,-1 
3710 DATA40,165,41,201,157,208,26 
3720 DATA32,28,196,144,10,152,208 
3730 DATA4,165,30,16,10,76,237 
3740 DATAl95,200,208,250,165,30,16 
3750 DATA246,164,31,208,3,185,194 
3760 DATA0,145,193,136,208,248,165 
3770 DATA38,145,193,32,202,197,133 
3780 DATAl93,132,194,169,154,32,210 
3790 DATA255,160,65,32,194,193,32 
3800 DATA84,198,32,65,195,32,84 
3810 DATAl98,169,159,32,210,255,76 
3820 DATAl76,198,168,32,191,199,208 
3830 DATAl7,152,240,14,134,28,166 
3840 DATA29,221,16,2,8,232,134 
3850 DATA29,166,28,40,96,201,48 
3860 DATA144,3,201,71,96,56,96 
3870 DATA64,2,69,3,208,8,64 
3880 DATA9,48,34,69,51,208,8 
3890 DATA64,9,64,2,69,51,208 
3900 DATA8,64,9,64,2,69,179 
3910 DATA208,8,64,9,0,34,68 
3920 DATA51,208,140,68,0,17,34 
3930 DATA68,51,208,140,68,154,16 
3940 DATA34,68,51,208,8,64,9 
3950 DATA16,34,68,51,208,8,64 
3960 DATA9,98,19,120,169,0,33 
3970 DATAl29,130,0,0,89,77,145 
3988 DATAl46,134,74,133,157,44,41 
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3990 DATA44,35,40,36,89,0,88 
4000 DATA36,36,0,28,138,28,35,-1 
4010 DATA93,139,27,161,157,138,29 
4020 DATA35,157,139,29,161,0,41 
4030 DATA25,174,105,168,25,35,36 
4040 DATA83,27,35,36,83,25,161 
4050 DATA0,26,91,91,165,105,36 
4060 DATA36,174,174,168,173,41,0 
4070 DATA124,0,21,156,109,156,165 
4080 DATA105,41,83,132,19,52,17 
4090 DATA165,105,35,160,216,98,90 
4100 DATA72,38,98,148,136,84,68 
4110 DATA200,84,104,68,232,148,0 
4120 DATA180,8,132,116,180,40,110 
4130 DATA116,244,204,74,114,242,164 
4140 DATA138,0,170,162,162,116,116 
4150 DATA116,114,68,104,178,50,178 
4160 DATA0,34,0,26,26,38,38 
4170 DATA114,114,136,200,196,202,38 
4180 DATA72,68,68,162,200,58,59 
4190 DATA82,77,71,88,76,83,84 
4200 DATA70,72,68,80,44,65,66 
4210 DATA194,53,194,204,193,247,193 
4220 DATA86,194,137,194,244,194,12 
4230 DATA195,62,196,146,196,192,196 
4240 DATA56,197,91,198,138,198,172 
4250 DATA198,70,193,255,192,237,192 
4260 DATA13,32,32,32,80,67,32 
4270 DATA32,83,82,32,65,67,32 
4280 DATA88,82,32,89,82,32,83 
4290 DATA80,108,239,255,254,221,222,-1 

Relocation 


If you need to relocate Supermon to another area of memory, the 
following program will assist. First load in supermon and use the trans¬ 
fer option to copy it to the desired location. Now run the program 
below and it changes the appropriate locations so that it will run at its 
new address. 


10 PRINT"CCLSI[REV3SUPERMON RELOCATION": 

PRINT:PRINT 

20 INPUT"NEW START ADDRESS - DECIMAL";AD 
30 IFAD>40960THENPOKEAD+234,160:GOTO90 
40 PRINT"DO YOU WANT IT PROTECTED FROM BASIC" 
50 PRINT"Y OR N" 
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<40 GETA*: IFA*<>"Y"ANDA*<>"N"THEN60 
70 IF A*="N"THEN POKE AD,160:GOTO90 
80 POKEAD+ 234,1NT(<AD/256+.5)> 

90 READ OF:IF OF=-l THEN130 

100 READ DA:DA=DA+AD:D2=INT(DA/256):D1=D 

A-<D2*256> 

110 POKE OF+AD,D1:POKE 0F+AD+1,D2 
120 GOTO90 
130 END 
140 CCN8 

150 READ A:IF A=-l THEN170 
160 CO=CO+A:GOTO150 

170 IF 00=451387THENPRINT "[REV3DATA 0K“ 

: END 

180 PRINT"CREV]DATA INCORRECT" 

190 REM ***** START OF DATA ***** 

200 DATA1,233,238,2278,244,2279,294,1 623 

,301,855,341,855,349,318,370,2247 

210 DATA374,2246,382,1005,402,1620,407,8 

40,410,307,418,904,431,1005,434,307 

220 DATA453,1623,459,855,469,2282,482,45 

0,488,840,494,840,497,439,500,397 

230 DATA505,318,508,889,513,873,516,318, 

519,889,524,873,553,458,556,833,559,395 

240 DATA564,1005,567,889,572,384,575,439 

,580,889,589,318,592,417,597,327,61 1 ,889 

250 DATA616,384,719,1005,733,904,758,662 

,770,751,779,327,782,662,789,889 

260 DATA792,873,802,889,813,873,828,754, 

831,327,836,840,846,864,853,864 

270 DATA890,904,897,904,909,318,925,943, 

934,318,937,943,973,318,986,972 

280 DATA989,911,992,892,998,318,1001,889 

,1020,327,1023,1620,1069,1075 

290 DATA1088,980,1091,873,1094,997,1097, 

1036,1108,997,1103,1071,1106,873 

300 DATA1115,1064,1124,1029,1127,307,1 1 3 

2,1064,1147,1036,1158,1064 

310 DATA1163,952,1166,955,1169,1149,1172 

,980,1175,873,1178,997,1181,873 

320 DATA1184,318,1187,904,1198,1071,1207 

,307,1212,1005,1215,327,1218,980 

330 DATA1221,873,1224,997,1227,873,1230, 

318,1235,318,1242,318,1 265,911 

340 DATA1281,904,1297,1623,1317,833,1320 

,1620,1323,307,1335,327,1338,980 
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350 DATAl365,1386,1368,1482,1384,327,138 

9,450,1392,1620,1395,833,1398,1620 

360 DATAl405,1497,1409,1567,1413,1589,14 

34,1474,1444,2090,1447,1701 

370 DATAl450,2096,1455,1701,1462,1485,14 

71,1474,1477,840,1515,2009,1533,2077 

380 DATAl570,1474,1575,1022,1591,2103,15 

96,2167,1629,980,1632,873,1635,997 

390 DATA1638,873,1650,1623,1653,1394,165 

6,1482,1668,1071,1673,327,1676,980 

400 DATAl683,318,1686,417,1699,1350,1710 

,980,1713,873,1721,972,1762,2000 

410 DATAl767,924,1866,985,1814,2103,1817 

,2167,1820,1977,1843,1983,1848,1985 

420 DATAI860,2096,1863,2090,1866,1977,18 

76,1976,1881,1976,1892,873,1905,1052 

430 DATAl917,1005,1943,1482,1957,450,196 

0,1620,1963,833,1966,1620 

440 DATAl974,1712,1978,1983,1330,1071 

450 DATA362,2231,916,318,1806,1497 

460 DATA2246,578,2248,565,2250,460 

470 DATA2252,503,2254,598,2256,649 

480 DATA2258,756,2260,780,2262,1086 

490 DATA2264,1170,2266,1216,2268,1336 

500 DATA2270,1627,2272,1674,2274,1708 

510 DATA2276,326,2278,255,2280,237,-1 


APPENDIX E: Instructions for the use of Supermon 


TO USE SUPERMON (relocated version) 


LOAD "SUPERMON",DEVICES 

NEW 

SYS49152 

GENERAL NOTE 

On entering Supermon it will save the stack which is restored on exit. 
It further changes the break vector so when a brk is met in a program 
Supermon is called. 

All values are entered in hex. Only in assembler mode do they have to 
be prefixed with '$' and then only for the operand. 

Once Supermon has been loaded, it is resident until the 64 is either 
turned off or a program loaded which uses memory from $C000. 
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INSTRUCTIONS 

A-assembler-A llows simple assembly of machine code. 

A SSTART OPCODE OPERAND. 

For example, a 8000 lda #$@a 
S upermon will prompt with the next address. 

Entering <return> after address will exit assembler mode. 

Branches are written with the destination address and not its dis¬ 
placement, that is, BEQSC 456 . 

D - disassembler - Disassembles 22 instructions from the address 
specified. 

D SSTART 

for example, D8000 

Hex values may be changed by overtyping and on <return> the same 
locations will again be disassembled. 

Typing D on the bottom line will disassemble the next 22 instructions. 
Typing <space> <return> will exit disassembler mode. 

F- fill memory - Fill an area of memory with a specified value. 

F $FROM $TO BYTE 

for example, F5000 6000 ff 

Useful to set up defaults prior to assembly, in particular to fill with nops 
(SEA). 

G - go run - execute machine code. 

G - Starts execution at address currently in the Program Counter 
Register (PC). 

C sstart- Starts execution at specified address. 

H - hunt - search memory for specified bytes. 

H sstart sto data 

for example, h50006000 read- Hunts for ASCII string -read" 

H 5000 6000 A9 0A - Hunts for LDA#$ 0 A 
A maximum of 32 bytes may be set. 

L - load - Loads a program at its secondary address, leaving basic poin¬ 
ters unchanged. 

L "filename" .device - Device in hex. 

08 disk 01 tape 

M - memory display - Displays hex values. 

M sfrom STO 
for example, m 0801 ,0891 
11 Bytes may be overtyped to change. 

P - print disassembly - Output hard copy of disassembled listing. 

If in Supermon then exit (see below) and set up printer as for normal 
listing. Re-enter Supermon with subsequent output being directed to 
the specified device. 
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For example OPEN4,4:CMD4:SYS49152 
P $FROM $TO 

When complete, exit Supermon and close printer channel. 

R - register display - Displays current register values. This displays the 
PC, IRQ, Status Register (SR), A, X, Y and Stack Pointer (SP). 

R 

Values can be overtyped to change. This is of particular use in debug¬ 
ging operations where any of the registers may be altered and program 
execution continued with a go command. 

S - save - Saves an area of memory to tape or disk. 

S "filename",DEVICE,$START,$END 

Saves from the start up to, but not including the end address. 

For example, S "NAME",08,5000,6001 - Saves from $5000 to $6000, but not 
the byte at $6001. 

T - transfer - Transfers an area of memory to another leaving the 
original intact. 

T $FROM $TO $START 

for example, T5000 60001000 
You can also use memory display this way. 

This option may be used in conjunction with the relocator to generate 
versions of Supermon for use at other locations. 

X~ EXIT SUPERMON 

X 

The stack saved when Supermon was entered will be restored. A clr 
from basic should tidy up any stack problems. 

COPYING SUPERMON 

Use the save command as normal with the following addresses: 

SUPERMON $C000 $C900 


APPENDIX F: Extended basic memory map 

The following gives the main entry points for the utility: 


Address Description 

$8000 Initialize Extended basic 

$800F Set up Keyword Vectors 

$8034 Set Top of Memory 

$8041 Set NMI and BRK Vectors 

$8054 Set Keyboard Table Set-up Vector 

$8061 NMI Routine 

$807E BRK Routine 
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Address Description 

$8090 Keyword Vector Table 

$80F6 Keyword Table - Command Keywords 

$81C7 Keyword Table - Function Keywords 

$81F5 Routine-GET PARAMETER 

$81FB Switch off basic 

$8202 Switch on basic 

$8209 CRUNCH Tokens 

$82BC PRINT Tokens 

$8302 Token DISPATCH - Command Keywords 

$8329 Token DISPATCH - Function Keywords 

$8352 Perform COLOUR 

$8381 Perform PLOT 

$83A7 Perform WRITE 

$83AD Perform ENTER 

$83B3 Perform DOKE 

$83D7 Perform DEEK 

$8401 Routine - Convert to Positive 

$8415 Perform OLD 

$842E Perform AUTO 

$847F Routine-Convert to ASCII 

$84A0 Perform TEN 

$84EC Perform TWO 

$8537 Perform HEX 

$85BF Perform BIN 

$85FC Perform MEM 

$8611 Perform RESET 

$8631 Perform POP 

$864D Perform KEY 

$8722 KEY Interrupt Routine 

$8799 Perform OFF 

$87A7 Perform MERGE 

$886F Perform APPEND 

$888B Routine to close up memory and rechain 

$8933 Routine to open up memory and rechain 

$89C5 Perform RENUM 

$8B93 Perform CODER 

$8D3A Perform TRACE 

$8D61 Perform TROFF 

$8E52 Perform DUMP 

$8F44 Perform DELETE 

$8FAF Perform CGOTO 

$8FB5 Perform CGOSUB 

$8FD2 Perform PROC 

$904E Perform INKEY$ 
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Address 

Description 

$9080 

CFIAIN routine 

$9169 

HIMEM/LOMEM routine 

$9181 

Perform F4IMEM 

$918D 

Perform LOMEM 

$91B7 

Perform QUIT 

$9200 

Start up message 

$927D 

Completion of DELETE 

$92B6 

Perform CFtAIN 

$92 DA- 
$9FFF 

unused (expansion for sound/graphic/disk) 


Appendix G: Reading an assembler listing 

The machine code routines in this book have been presented in two 
formats. The first was generated using Supermon which is given in 
Appendix D and instructions for its use in Appendix E. The second was 
produced using Supersoft's mikro assembler cartridge. This appendix 
deals with listings generated using mikro as we feel they require some 
explanation. 

PSEUDO-OPS 

These are instructions to the assembler and are not directly executable 
op-codes. 

★=$C000 

This tells the assembler to start its assembly at address $ 0000 . 

WOR, BYT, and TXT 

These instructions reserve bytes in memory. Both wor and byt may be 
followed by any number of arguments separated by commas up to the 
limit of two screen lines, wor reserves two bytes and is used to store 
absolute addresses in low/high format. 

WOR $C000,$0100 

Puts the four bytes $00,$C0,$00,$0i in four consecutive addresses, byt 
reserves single bytes. 

BYT $A9,$FF 

txt is followed by a quoted string and places the hex values of the 
ASCII codes sequentially in memory. 

TXT"ABCD" 


Puts $41 ,$42,$43 and $44 into memory. 
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Each of these directives allocates bytes from the address at which it 
appears. 

LABELS 

Labels are used to identify an absolute address in memory. They are 
normally used as the destination for branches and jumps. They may 
also be used as operands. 

LDA #$00 BYTE=#$FF 
BEQ ZERO or LDX BYTE 


ZERO RTS 

The absolute value of an address may be divided into low/high format 
by the use of #<' and ■#>• operators. 

*=$C000 

START LDA #<START 
LDX #>START 

This loads A with $00 and X with $c@. 

Simple numerical calculations may be performed. 

STORE BYT $00,$FF 
LDA STORE 
LDX STORE+1 

This loads A with the value held in STORE which has been set to $00 and 
X with the byte from the next location, that is, $ff. 

ADDRESS TABLES 

Where labels have been used their values, starting at an arbitrary 
address, have been given. This is useful to determine the hex values 
for all branches and jumps. 

LINE NUMBERS 

The assembler code is entered exactly as one would type in a basic 
program. The same editing rules apply to a mikro program as to a basic 
program. Generally, we have retained these line numbers in the lis¬ 
tings given for clarity and to aid description. 

COMMENTS 

An exclamation mark is used in the same way as a rem from basic and 
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prefixs comment statements. It tells mikro to ignore anything which 
follows it. 

This is by no means the definitive mikro manual. We have limited 
ourselves to using only a few of the options available to allow easier 
conversion to other assemblers. 


Appendix H: Mnemonics generated by CODER 

The codes generated are: 


[BLK] - BLACK 

[WHT] -WHITE 
[RED] -RED 

[GR1] 

[GR2] 

[LT GRN] 

-GRAY1 

-GRAYS2 

-LIGHT GREEN 

[DEL] 

[INS] 

[REV] 

-DELETE 

-INSERT 

-REVERSE 

ON 

[CYN] -CYAN 

[LT BLU] 

-LIGHT BLUE 

[OFF] 

-REVERSE 

OFF 

[PUR] -PURPLE 

[GRN] -GREEN 

[GR3] 

[CLS] 

-GRAY3 

-CLEAR SCREEN 

[SPC] 

[G>SPC] 

-SPACE 

-SHIFTED 

SPACE 

[BLU] -BLUE 

[HOM] 

-HOME CURSOR 

[G>?[ 

-GRAPHIC 

WITH 





SHIFT 

[YEL] -YELLOW 

[CU] 

-CURSOR UP 

[G<?[ 

-GRAPHIC 

WITH LOGO 

[ORG] -ORANGE 

[CD] 

-CURSOR DOWN 

[CTRL?] 

-CONTROL 

WITH 





LETTER 

[BRN] -BROWN 

[CR] 

-CURSOR RIGHT 

[F?[ 

-FUNCTION 

KEYS 

[LT RED] - LIGHT RED [CL] 

-CURSOR LEFT 

[PI] 

-PI 

3.1416 


MULTIPLE CHARACTERS are coded as [10CD] 

SPACES 

Single, unshifted spaces are not coded. We thought it unnecessary as it 
detracted from the legibility of the listing. 

SPECIAL CODES 

The following is an extract from the Programmer's Reference Guide , 
page 74: 

There are some other characters that can be PRINTed for special functions, 
although they are not easily available from the keyboard. In order to get 
these into quotes, you must leave empty spaces for them in the line, hit 
<RETURN> or <SHIFT><RETURN>, and go back to the spaces with the 
cursor controls. Now you must hit <CTRL> <RVS/ON>, to start typing 
reversed characters, and type the keys shown below: 
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Function 
SHIFT RETURN 
switch to lower case 
switch to upper case 
disable case switching keys 
enable case switching keys 


Type 
SHIFT M 
N 

SHIFT N 

H 

I 


Appears As 



Functions 1 and 3 of the above are achieved as stated. CODER replaces 
them with: 


[CRG>M] - SHIFT RETURN 
[CRON] - SWITCH TO UPPER CASE 

The other three can be achieved far more easily. Whilst PRiNTing in 
quotes mode, press <ctrl> and the appropriate letter. 


Appendix I: Key codes 

The following are the values assigned to keys in locations sfdx and lstx 

(SCB/203 & JC5/197): 


dec key 

dec key 

dec key 

0 

INST/DEL 

22 

T 

44 


1 

RETURN 

23 

X 

45 


2 

CRSR R/L 

24 

7 

46 

@ 

3 

F7 

25 

Y 

47 


4 

FI 

26 

G 

48 

£ 

5 

F3 

27 

8 

49 

★ 

6 

F5 

28 

B 

50 


7 

CRSR U/D 

29 

H 

51 

CLR/HOME 

8 

3 

30 

U 

52 

None 

9 

w 

31 

V 

53 

= 

10 

A 

32 

9 

54 


11 

4 

33 

i 

55 

/ 

12 

Z 

34 

j 

56 

1 

13 

S 

35 

0 

57 


14 

E 

36 

M 

58 

None 

15 

None 

37 

K 

59 

2 

16 

5 

38 

O 

60 

SPACE 

17' 

R 

39 

N 

61 

None 

18 

D 

40 

+ 

62 

Q 

19 

6 

41 

P 

63 

RUN/STOP 

20 

C 

42 

L 

64 

No key press 

21 

F 

43 

- 
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The following are the values of the shift registers shflac and lstshf 
($028D/653 and S028E/654): 


dec key pattern 

0 NO SHIFTS 

1 SHIFT 

2 LOGO 

3 SHIFT AND LOGO 

4 CTRL 

5 CTRL AND SHIFT 

6 CTRL AND LOGO 

7 CTRL, SHIFT AND LOCO 


Appendix ): Summary of UTILITY commands 

APPEND "program name", device 

As for merge except that the appended program is tagged on the end 
of the memory program. Line numbers are not altered. Peculiar listings 
can be the result. Use renum after an append. 

AUTO first line number,increment 
Automatic line numbering when entering code. 

BIN 8 bit binary number!,.... 

Prints out decimal conversion of binary number in two forms. The first 
as a low byte conversion and then, separated by an oblique, the high 
byte conversion (low ★ 256). The binary number must be of eight bits. 

CGOTO variable, calculation or line number 
Line numbers can be mathematical equations. 

CGOSUB variable, calculation or line number 
Line numbers can be mathematical equations. 

CHAIN ["filename"]!,device] 

Will load and run a basic program. It also transfers most variables from 
one program to another. 

CODER 

Will replace non-standard ASCII and graphic codes with mnemonics. 
See Appendix H for full list. 

COLOUR screen!,border]!,text] 

Values over 15 can be input, but only the lower four bits will be 
considered. Border and text parameters are optional. 
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DEEK(address) 

Two byte PEEK. Returns memory location held in address and 
address+1. 

DELETE first line to be deleted, [last line to be deleted] 

Deletes lines in the range specified. No last line parameter, it will 
delete to the end of program. 

DPROC name 

Start of procedure called 'name'. 

DOKE address, value 

Two byte poke. Stores value (0-65535) in address and address+1. 

DUMP 

Displays the values of all simple variables currently in use. 

ENTER (x,y) 

Same as input, but first sets cursor position as in plot. 

EPROC 

End of a procedure. 

HEX hexadecimal number!,hex number]!,... 

Prints decimal conversion of hex input. The hex input can be of either 
two or four characters, but does not require a prefix of 

HIMEM address 

Will set the top of memory to the given address, within the range of 
1024 to 32767. 

INKEY$ [string or string variable] 

Will wait for a key press. With no parameter, it will wait for any key. 
With a parameter, it will wait for a key to correspond to any character 
in the string. The ASCII value of the key press is placed in reserved 
variable 'ST'. 

KEY 1 to 16,"data" 

Loads function keys with data. Maximum of ten characters per key is 
permissible. Inputs over ten characters will generate a syntax error, but 
the first ten characters of data will be assigned to the particular key. To 
generate a return in the data, use 
for example, key 7,"list*-" 

KEY 

Will display the data assigned to all 16 keys in the format they were first 
entered. This will allow you to overtype the displayed data to amend 
the key assignations. 

To obtain keys: KEY 1-8 as marked on keys 

KEYS 9,11,13,15 key with logo 

KEYS 10,12,14,16, key with shift and logo 
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Note: any key command will enable the keys if they have previously 
been disabled. 

LOMEM address 

Will set the start of basic to the given address, within the range of 1024 
to 32767. 

MEM 

Display amount of memory free as an unsigned number. 

MERGE ["program name"],[device] 

Merges a stored program with that currently in memory according to 
their line numbers. Lines numbers of the merging program take pre¬ 
cedence. If no program name and/or device then the command will 
default to tape. With no name then first program on tape will be 
merged. 

OFF 

Disable the function keys. 

OLD 

Restores a basic program after a new or system reset have been 
actioned. This will not work if an edit has been carried out before old 
is actioned. 

PLOT (x,y) 

Sets the cursor column and row position, x-0 to 39 and y-0 to 24. 0,0 
is the top left hand corner of the screen (cursor home). 

POP 

Rectifies stack on leaving a subroutine before a return has been called. 
PROC name 

Calls a procedure called 'name'. 

QUIT 

Disables the utility and its commands, but protects the area that it uses. 
The utility can be initialized again by sys 32768. 

RENUM first line number to be changed or 0, increment, new start line 
number 

If first parameter is 0, the whole program will be renumbered, 
otherwise, from designated line to the end of program. Renumbers the 
following tokens:GOTO,GO to, gosub, if then, run, on goto, on gosub and 
reset. It will not renumber ccoto or cgosub. 

RESET [line number] 

Restore data pointer to specific line or start of program. 

TEN decimal number!,. 

Prints hex conversion of a decimal number. 
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TRACE 

A diagnostic to follow the execution of a basic program as it runs. 

TROFF 

Disables trace function. 

TWO decimal number!,.... 

Prints binary conversion of decimal number. 

WRITE (x,y) 

Same as print, but sets cursor position first as in plot. 

Note: All commands performing number conversions will do more 
than one conversion if the values are separated by commas. 

ERRORS 

These are particular to the utility. 

CODER 

string too long - more than 254 bytes have been generated by the 

mnemonics for one program line. 

out of data - found a character not handled by corder. 

RENUM 

illegal direct - line at which to start renumbering does not exist. 
undef'D statement - no destination found for a goto or gosub directive. 


APPENDIX K: 64 low memory map 

The following is the first few pages of the memory map in the Pro¬ 
grammer's Reference Guide (PRG), Chapter 5. It is included to avoid 
continual reference to the PRG to look up label addresses. Some of the 
descriptions have been changed through personal experience or pref¬ 
erence to those in J. Butterfield's map. 


LABEL 

hex 

decimal 

D6510 

0000 

0 

R6510 

0001 

1 

ADRAY1 

0003-0004 

3-4 

ADRAY2 

0005-0006 

5-6 

CHARAC 

0007 

7 

ENDCHR 

0008 

8 

TRMPOS 

0009 

9 

VERCK 

000A 

10 

COUNT 

000B 

11 

DIMFLG 

000C 

12 

VALTYP 

000D 

13 

INTFLG 

000E 

14 


Description 

6510 direction register 
6510 I/O, memory and tape 
Float to fixed vector 
Fixed to float vector 
Search character 
End of quote flag 
Save screen last TAB 
Flag: LOAD=0 VERIFY=1 
Ptr input buffer/#subscripts 
Default DIM to 10 flag 
DATA type:string=255 numeric=0 
:integer=128 float=0 
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LABEL 


hex 


decimal Description 


GARBFL 


000F 


15 


DATA scan/LIST quote/garbage 
collection flag 
subscript/user fn call 


SUBFLG 

0010 

16 

INPFLG 

0011 

17 

TANFLG 

0012 

18 


0013 

19 

LINNUM 

0014-0015 

20-21 

TEMPPT 

0016 

22 

LASTPT 

0017-0018 

23-24 

TEMPST 

0019-0021 

25-33 

INDEX 

0022-0025 

34-37 

RESHO 

0026-002A 

38-42 

TXTTAB 

002B-002C 

43-44 

VARTAB 

002D-002E 

45-46 

ARYTAB 

002F-0030 

47-48 

STREND 

0031-0032 

49-50 

FRETOP 

0033-0034 

51-52 

FRESPC 

0035-0036 

53-54 

MEMSIZ 

0037-0038 

55-56 

CURLIN 

0039-003A 

57-58 

OLDLIN 

003B-003C 

59-60 

OLDTXT 

003D-003E 

61-62 

DATLIN 

003F-0040 

63-64 

DATPTR 

0041-0042 

65-66 

INPPTR 

0043-0044 

67-68 

VARNAM 

0045-0046 

69-70 

VARPNT 

0047-0048 

71-72 

FORPNT 

0049-004A 

73-74 


004B-004C 

75-76 


004D 

77 


004E-0050 

76-83 


0054-0056 

84-86 


0057-0060 

87-96 

FACEXP 

0061 

97 

FACHO 

0062-0065 

98-101 

FACSGN 

0066 

102 

SGNFLG 

0067 

103 

BITS 

0068 

104 

ARGEXP 

0069 

105 

ARGHO 

006A—006D 

106-109 

ARGSGN 

006E 

110 

ARISGN 

006F 

111 

FACOV 

0070 

112 

FBUFPT 

0072-0072 

113-114 


$00= INPUT $40=GET $80=READ 

TAN sign/comparison 

current I/O prompt 

integer value 

pointeritemp string stack 

last temp string address 

stack for temp strings 

utility pointer area 

product area for multiply 

pointer start of basic 

pointer start of variables 

pointer start of arrays 

pointer end of arrays 

pointer bottom of strings 

utility string pointer 

pointer highest address used by basic 

current basic line number 

previous basic line number 

basic statement for CONT 

current DATA line 

current DATA address 

INPUT vector 

pointer current variable name 
pointer current variable data 
pointer variable for FOR/NEXT 
Y-save/op-save/BASic pointer save 
comparison symbol accumulator 
misc work area 
jump vectors for functions 
misc numeric work area 
FPACC#1: exponent 
FPACC#1: mantissa 
FPACC#1: sign 

pointer series evaluation constant 
FPACC#1: overflow digit 
FPACC#2: exponent 
FPACC#2: mantissa 
FPACC#2:sign 
sign comparison result 
FPACC#1: low order rounding 
pointer cassette buffer 
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LABEL 

hex 

decimal 

CHRGET 

0073-008A 

115-138 

CHRGOT 

0079 

121 

TXTPTR 

007A-007B 

122-123 

RNDX 

008B-008F 

139-143 

STATUS 

0090 

144 

STKEY 

0091 

145 

SVXT 

0092 

146 

VERCK 

0093 

147 

C3PO 

0094 

148 

BSOUR 

0095 

149 

SYNO 

0096 

150 


0097 

151 

LDTND 

0098 

152 

DFLTN 

0099 

153 

DFLTO 

009A 

154 

PRTY 

009B 

155 

DPSW 

009C 

156 

MSGFLG 

009D 

157 

PTR1 

009E 

158 

PTR2 

009F 

159 

TIME 

00A0-00A2 

160-162 


00 A3 

163 


00A4 

164 

CNTDN 

00A5 

165 

BUFPNT 

00A6 

166 

INBIT 

00A7 

167 

BITCI 

00A8 

168 

RINONE 

00A9 

169 

RIDATA 

00AA 

170 

RIPRTY 

00 A B 

171 

SAL 

00 AC-00 AD 

172-173 

EAL 

00AE-00AF 

174-175 

CMPO 

00B0-00B1 

176-177 

TAPE1 

00B2-00B3 

178-179 

BITTS 

00B4 

180 

NXTBIT 

00B5 

181 

RODATA 

00B6 

182 

FNLEN 

00B7 

183 

LA 

00B8 

184 


Description 

subroutine:get next byte of basic 
entry point to get same byte 
pointer current byte of basic 
RND seed value 
KERNAL I/O status ST 
switch:STOP and RVS keys 
timing constant for tape 
LOAD=0 VERIFY=1 
serial output: deferred char flag 
serial output deferred char 
tape EOT received 
register save 
how many open files# 
input device (default=0) 
output device (default=3) 
tape char parity 
tape byte received flag 
basic mode flag $00=program 
$80=direct 
tape pass 1 error log 
pass 2 error log 
real-time jiffy clock 
serial bit count/EOI flag 
cycle count 

tape sync countdown/bit count 

pointer tape I/O buffer 

RS232 input bits 

tape wrt Idr/rd count 

RS232 input bit count 

tape wrt new byte/rd error 

RS232 start bit flag 

RS232 input byte buffer 

tape scan/counter/ldr 

RS232 input parity 

tape wrt Idr length'rd checksum 

pointer tape buffer/scrn scroll 

tape end address/end program 

tape timing constants 

pointer start of tape buffer 

RS232 out bit count/tape enabled=1 

RS232 next bit to send/tape EOT 

RS232 out byte buffer/rd char error 

Length current file name 

Current logical file number 
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LABEL 

hex 

decimal 

SA 

00B9 

185 

FA 

00BA 

186 

FNADR 

00BB-00BC 

186-187 

ROPRTY 

00BD 

189 

FSBLK 

00BE 

190 

MYCH 

00BF 

191 

CAS1 

00C0 

192 

STAL 

00C1-00C2 

193-194 

MEMUSS 

00C3-00C4 

195-196 

LSTX 

00C5 

197 

NDX 

00C6 

198 

RVS 

00C7 

199 

INDX 

00C8 

200 

LXSP 

00C9-00CA 

201-202 

SFDX 

00CB 

203 

BLNSW 

00CC 

204 

BLNCT 

00CD 

205 

GDBLN 

00CE 

206 

BLNON 

00CF 

207 

CRSW 

00D0 

208 

PNT 

00D1-00D2 

209-210 

PNTR 

00D3 

211 

QTSW 

00D4 

212 

LNMX 

00D5 

213 

TBLX 

00D6 

214 


00D7 

215 

INSRT 

00D8 

216 

LDTB1 

00D9-00F2 

217-242 

USER 

00F3-00F4 

243-244 

KEYTAB 

00F5-00F6 

245-246 

RIBUF 

00F7-00F8 

247-248 

ROBUF 

00F9-00FA 

249-250 

FREKZP 

00FB-00Fe 

251-254 

BASZPT 

00FF 

255 


0100-010A 

256-266 


0100-013E 

256-318 


0100-01FF 

256-511 

BUF 

0200-0258 

512-600 

LAT 

0259-0262 

601-610 

FAT 

0263-026C 

611-620 

SAT 

026D-0276 

621-630 

KEYD 

0277-0280 

631-640 


Description 

Current secondary address 
Current device number 
Ptr current file name address 
RS232 out parity/tape rd input char 
tape #blocks left to wrt/rd 
Serial word buffer 
Tape motor control 
I/O start address 

KERNAL setup ptr/tape temp address 

Last key pressed 

Characters in k/b queue 

RVS char print flag 1 =yes 0=no 

Ptr end of line for INPUT 

Cursor row,col at start of INPUT 

Current key pressed 64=no key 

0=blink cursor 

Cursor countdown timer 

Character at cursor pos 

Cursor blink flag on/off 

Flag: INPUT from screen or 

GET from keyboard 

Ptr current start of screen line add 

Cursor col on above line 

Flag: 0=cursor in edit mode else in 

quote mode 

Physical screen line length 

Current row where cursor lives 

Last inkey/checksum/buffer temp data 

#inserts outstanding 

Screen line link table 

Ptr screen colour 

K/b decode table vector 

RS232 input buffer ptr 

RS232 output buffer ptr 

Free zero page area 

basic temp data area 

Float to ASCII work area 

Tape error log 

Processor stack 

System input buffer 

Logical file table 

Device number table 

Secondary address table 

Keyboard buffer 
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LABEL 

hex 

decimal 

MEMSTR 

0281-0282 

641-642 

MEMSIZ 

0282-0283 

643-644 

TIMOUT 

0285 

645 

COLOR 

0286 

646 

GDCOL 

0287 

647 

HIBASE 

0288 

648 

XMAX 

0289 

649 

RPTFLG 

028A 

650 

KOUNT 

028B 

651 

DELAY 

028D 

653 

LSTSHF 

028E 

654 

KEYLOG 

028F-0290 

655-656 

MODE 

0291 

657 

AUTODN 

0292 

658 

M51CTR 

0293 

659 

M51CDR 

0294 

660 

M51AJB 

0295-0296 

661-662 

RSSTAT 

0297 

663 

BITNUM 

0298 

664 

BAUDOF 

0299-029A 

665-666 

RIDBE 

029B 

667 

RIDBS 

029C 

668 

RODBS 

029D 

669 

RODBE 

029E 

670 

IRQTMP 

029F-02A0 

671-672 

ENABL 

02A1 

673 


02A2 

674 


02A3 

675 


02A4 

676 


02A5 

677 


02A6 

678 


02A7-02FF 

679-767 


02C0-02FE 

704-766 

IERROR 

0300-0301 

768-769 

IMAIN 

0302-0303 

770-771 

ICRNCH 

0304-0305 

772-773 

IQPLOP 

0306-0307 

774-775 

IGONE 

0308-0309 

776-777 

IEVAL 

030A-030B 

778-779 

SAREG 

030C 

780 


Description 

Start of basic memory 

Top of basic memory 

Serial bus time out flag 

Current character colour 

Background colour under cursor 

Start of screen memory: page number 

Size of k/b buffer 

Flag: 128=repeat all keys 

Repeat speed counter 

Flag: shift/ctrl/logo key 

Last shift pattern 

K/b table setup ptr 

Flag: 0=disable shift keys 128=enable 

0=scroll down enable 

RS232 control register 

RS232 command register 

RS232 non-standard baud rate 

RS232 status register 

RS232 bits left to send 

RS232 Baud rate 

RS232 index to end of input buffer 
RS232 page number of start 
of input buffer 
RS232 page number of start 
of output buffer 

RS232 index to end of output buffer 
IRQ save during tape I/O 
RS232 enable/CIA 2 (NMI) interrupt 
control 

CIA 1 timer A control log during 
tape I/O 

CIA 1 interrupt log tape read 
CIA 1 Timer A enable log tape read 
Screen line marker 
PAL/NTSC flag 0=NTSC 1 = PAL 
Unused 

Block 11 for sprites 

Vector: basic error message ($E3B8) 

Vector: basic warm start($A483) 

Vector:Crunch basic tokens($A57C) 
Vector: Print basic tokens($A71 A) 
Vector: Start new basic line($A7E4) 
Vector: basic token evaluate($AE86) 
Save A register 
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LABEL 

hex 

decimal 

Description 

SXREG 

030D 

781 

Save X register 

SYREG 

030E 

782 

Save Y register 

SPREG 

030F 

783 

Save status register 

USRPOK 

0310 

784 

USR function jump instrn ($4C) 

USRADD 

0311-0312 

785-786 

USR address low/high form($B248) 


0313 

787 

Unused 

CINV 

0314-0315 

788-789 

Vector:Flardware IRQ($EA31) 

CBINV 

0316-0317 

790-791 

Vector: BRK interrupt($FE66) 

NMINV 

0318-0319 

792-793 

Vector: NMI($FE47) 

IOPEN 

031A-031B 

794-795 

Vector: KERNAL OPEN($F34A) 

ICLOSE 

031C-031D 

796-797 

Vector: KERNAL CLOSE($F291) 

ICHKIN 

031E-031F 

798-799 

Vector: KERNAL CHKIN($F20E) 

ICKOUT 

0320-0321 

800-801 

Vector: KERNAL CHKOUT($F250) 

ICLRCH 

0322-0323 

802-803 

Vector: KERNAL CLRCHN($F333) 

IBASIN 

0324-0325 

804-805 

Vector: KERNAL CHR1N<$F157) 

IBSOUT 

0326-0327 

806-807 

Vector: KERNAL CHROUT($F1CA) 

ISTOP 

0328-0329 

808-809 

Vector: KERNAL STOP($F6ED) 

IGETIN 

032A-032B 

810-811 

Vector: KERNAL GETIN$F13E) 

ICLALL 

032C-032D 

812-813 

Vector: KERNAL CLALL($F32F) 

USRCMD 

032E-032F 

814-815 

Vector:Warm start($FE66) 

ILOAD 

0330-0331 

816-817 

Vector:KERNAL LOAD($F4A5) 

ISAVE 

0332-0333 

818-819 

Vector: KERNAL SAVE($F5ED) 


0334-033B 

820-827 

Unused 

TBUFFR 

033C-03FB 

828-1019 

Tape I/O buffer 


03FC-03FF 

1020-1023 

Unused 


0340-037E 

832-894 

Block 13 sprite data 


0380-03BE 

896-958 

Block 14 sprite data 


03C0-03FE 

960-1022 

Block 15 sprite data 

VICSGN 

0400-07FF 

1024-2047 

Screen memory 


0400-07E7 

1024-2023 

Visible memory 


07F8-07FF 

2040-2047 

Sprite block data pointers 0-7 


0800 

2048 

Start of basic (TXTTAB-1) 
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